![[Valid RSS]](images/valid-rss-rogers.png "Valid RSS")
This is a valid RSS feed.
This feed is valid, but interoperability with the widest range of feed readers could be improved by implementing the following recommendations.
... rel="self" type="application/rss+xml" />
^
line 100, column 0: (11 occurrences) [help]
line 100, column 0: (11 occurrences) [help]
line 100, column 0: (11 occurrences) [help]
line 100, column 0: (11 occurrences) [help]
line 100, column 0: (11 occurrences) [help]
line 100, column 0: (11 occurrences) [help]
line 100, column 0: (11 occurrences) [help]
line 100, column 0: (11 occurrences) [help]
line 100, column 0: (11 occurrences) [help]
line 100, column 0: (11 occurrences) [help]
line 100, column 0: (11 occurrences) [help]
line 100, column 0: (10 occurrences) [help]
line 781, column 0: (3 occurrences) [help]
line 781, column 0: (5 occurrences) [help]
line 882, column 0: (14 occurrences) [help]
line 1347, column 0: (2 occurrences) [help]
line 1347, column 0: (2 occurrences) [help]
line 1347, column 0: (2 occurrences) [help]
line 1555, column 0: (7 occurrences) [help]
<?xml version="1.0" encoding="UTF-8"?><rss version="2.0" xmlns:content="http://purl.org/rss/1.0/modules/content/" xmlns:wfw="http://wellformedweb.org/CommentAPI/" xmlns:dc="http://purl.org/dc/elements/1.1/" xmlns:atom="http://www.w3.org/2005/Atom" xmlns:sy="http://purl.org/rss/1.0/modules/syndication/" xmlns:slash="http://purl.org/rss/1.0/modules/slash/" xmlns:georss="http://www.georss.org/georss" xmlns:geo="http://www.w3.org/2003/01/geo/wgs84_pos#" xmlns:media="http://search.yahoo.com/mrss/" > <channel> <title>QBlog</title> <atom:link href="https://sinclairqles.wordpress.com/feed/" rel="self" type="application/rss+xml" /> <link>https://sinclairqles.wordpress.com</link> <description>El blog sobre Sinclair QL en castellano</description> <lastBuildDate>Sat, 27 Apr 2024 15:38:00 +0000</lastBuildDate> <language>es</language> <sy:updatePeriod> hourly </sy:updatePeriod> <sy:updateFrequency> 1 </sy:updateFrequency> <generator>http://wordpress.com/</generator><cloud domain='sinclairqles.wordpress.com' port='80' path='/?rsscloud=notify' registerProcedure='' protocol='http-post' /><image> <url>https://s0.wp.com/i/buttonw-com.png</url> <title>QBlog</title> <link>https://sinclairqles.wordpress.com</link> </image> <atom:link rel="search" type="application/opensearchdescription+xml" href="https://sinclairqles.wordpress.com/osd.xml" title="QBlog" /> <atom:link rel='hub' href='https://sinclairqles.wordpress.com/?pushpress=hub'/> <item> <title>QIMSI Gold ¡Una nueva GoldCard!</title> <link>https://sinclairqles.wordpress.com/2024/04/27/qimsi-gold-una-nueva-goldcard/</link> <comments>https://sinclairqles.wordpress.com/2024/04/27/qimsi-gold-una-nueva-goldcard/#respond</comments> <dc:creator><![CDATA[afx]]></dc:creator> <pubDate>Sat, 27 Apr 2024 15:38:00 +0000</pubDate> <category><![CDATA[Miscelánea]]></category> <guid isPermaLink="false">http://sinclairqles.wordpress.com/?p=3804</guid> <description><![CDATA[Peter Graf lo ha vuelto a hacer, y esta vez a lo grande. Acaba de anunciar una nueva tarjeta de expansión para el QL pero esta vez … ¡Vía puerto ROM! Una autentica locura. Las características son: Y todo esto en una placa de 53 x 35 mm que se conecta al puerto ROM del …<p><a href="https://sinclairqles.wordpress.com/2024/04/27/qimsi-gold-una-nueva-goldcard/" class="more-link">Leer Más</a></p>]]></description> <content:encoded><![CDATA[<p>Peter Graf lo ha vuelto a hacer, y esta vez a lo grande. Acaba de anunciar una nueva tarjeta de expansión para el QL pero esta vez … ¡Vía puerto ROM! Una autentica locura.</p> <p>Las características son:</p> <ul><li>Conexión con pantallas modernas vía salida VESA estándar. Soporta los modos de videos tradicionales del QL añadiendo modos adicionales con más resolución (hasta 1024×768) y más colores (hasta 65536).</li> <li>Una CPU compatible con el 68000 a 40 MHz.</li> <li>32 MB de RAM</li> <li>Soporte para sistemas operativos Minerva y SMSQ/E</li> <li>Un reloj en tiempo real</li> <li>Un puerto serie a 115200 baudios</li> <li>Conexión con ratón PS2</li> <li>Conexión con teclado PS2</li> <li>Un puerto adicional de entrada / salida.</li></ul> <p>Y todo esto en una placa de 53 x 35 mm que se conecta al puerto ROM del QL.</p> <p>Oficialmente lo van a presentar en el evento alemán del 40 aniversario del QL (17/18/19 de mayo), pero ya hay un adelanto en un hilo de QLFormum, <a href="https://qlforum.co.uk/viewtopic.php?t=4799" rel="nofollow">https://qlforum.co.uk/viewtopic.php?t=4799</a> .</p> <p>Lo mejor es verlo en imágenes.</p> <figure class="wp-block-image size-large"><img width="400" height="294" data-attachment-id="3805" data-permalink="https://sinclairqles.wordpress.com/2024/04/27/qimsi-gold-una-nueva-goldcard/qimsigold/" data-orig-file="https://sinclairqles.files.wordpress.com/2024/04/qimsigold.jpg" data-orig-size="400,294" data-comments-opened="1" data-image-meta="{"aperture":"0","credit":"","camera":"","caption":"","created_timestamp":"0","copyright":"","focal_length":"0","iso":"0","shutter_speed":"0","title":"","orientation":"0"}" data-image-title="qimsigold" data-image-description="" data-image-caption="" data-medium-file="https://sinclairqles.files.wordpress.com/2024/04/qimsigold.jpg?w=300" data-large-file="https://sinclairqles.files.wordpress.com/2024/04/qimsigold.jpg?w=400" src="https://sinclairqles.files.wordpress.com/2024/04/qimsigold.jpg?w=400" alt="" class="wp-image-3805" srcset="https://sinclairqles.files.wordpress.com/2024/04/qimsigold.jpg 400w, https://sinclairqles.files.wordpress.com/2024/04/qimsigold.jpg?w=150 150w, https://sinclairqles.files.wordpress.com/2024/04/qimsigold.jpg?w=300 300w" sizes="(max-width: 400px) 100vw, 400px" /></figure> <figure class="wp-block-image size-large"><img width="400" height="303" data-attachment-id="3806" data-permalink="https://sinclairqles.wordpress.com/2024/04/27/qimsi-gold-una-nueva-goldcard/qimsigold2/" data-orig-file="https://sinclairqles.files.wordpress.com/2024/04/qimsigold2.jpg" data-orig-size="400,303" data-comments-opened="1" data-image-meta="{"aperture":"0","credit":"Armando Fumero Fern\u00e1ndez","camera":"","caption":"","created_timestamp":"1714172950","copyright":"","focal_length":"0","iso":"0","shutter_speed":"0","title":"","orientation":"1"}" data-image-title="qimsigold2" data-image-description="" data-image-caption="" data-medium-file="https://sinclairqles.files.wordpress.com/2024/04/qimsigold2.jpg?w=300" data-large-file="https://sinclairqles.files.wordpress.com/2024/04/qimsigold2.jpg?w=400" src="https://sinclairqles.files.wordpress.com/2024/04/qimsigold2.jpg?w=400" alt="" class="wp-image-3806" srcset="https://sinclairqles.files.wordpress.com/2024/04/qimsigold2.jpg 400w, https://sinclairqles.files.wordpress.com/2024/04/qimsigold2.jpg?w=150 150w, https://sinclairqles.files.wordpress.com/2024/04/qimsigold2.jpg?w=300 300w" sizes="(max-width: 400px) 100vw, 400px" /></figure>]]></content:encoded> <wfw:commentRss>https://sinclairqles.wordpress.com/2024/04/27/qimsi-gold-una-nueva-goldcard/feed/</wfw:commentRss> <slash:comments>0</slash:comments> <media:content url="https://2.gravatar.com/avatar/2e948c7450b5c4716e0fc96ea0278fc228d8f5b3fd19305b5133c6cd0d22928a?s=96&d=retro&r=G" medium="image"> <media:title type="html">afx</media:title> </media:content> <media:content url="https://sinclairqles.files.wordpress.com/2024/04/qimsigold.jpg?w=400" medium="image" /> <media:content url="https://sinclairqles.files.wordpress.com/2024/04/qimsigold2.jpg?w=400" medium="image" /> </item> <item> <title>Programando mi primera Demo en QL – fascículo IV, colisiones y puntuaciones</title> <link>https://sinclairqles.wordpress.com/2024/03/30/programando-mi-primera-demo-en-ql-fasciculo-iv-colisiones-y-puntuaciones/</link> <comments>https://sinclairqles.wordpress.com/2024/03/30/programando-mi-primera-demo-en-ql-fasciculo-iv-colisiones-y-puntuaciones/#comments</comments> <dc:creator><![CDATA[badaman]]></dc:creator> <pubDate>Sat, 30 Mar 2024 17:16:37 +0000</pubDate> <category><![CDATA[Programación]]></category> <category><![CDATA[SuperBASIC]]></category> <guid isPermaLink="false">http://sinclairqles.wordpress.com/?p=3778</guid> <description><![CDATA[Esta colección de pocos artículos pretende dar a conocer las particularidades del SuperBASIC mediante un ejemplo práctico, la realización de una pequeña demo.<p><a href="https://sinclairqles.wordpress.com/2024/03/30/programando-mi-primera-demo-en-ql-fasciculo-iv-colisiones-y-puntuaciones/" class="more-link">Leer Más</a></p>]]></description> <content:encoded><![CDATA[<p>Viene del artículo: «<a href="https://sinclairqles.wordpress.com/2024/03/29/programando-mi-primera-demo-en-ql-fasciculo-iii-movimiento-y-rebotes/">Programando mi propia demo en QL III</a>»</p> <p>Finaliza esta serie de artículos, y en esta ocasión veremos cómo controlar las colisiones y las puntuaciones para dejar nuestra demo terminada.</p> <h2 class="wp-block-heading">El Ying y el Yang</h2> <p>En la línea 500 de esta versión, he inicializado los marcadores a 200. Este valor se corresponde con el número de casillas del tablero del color de cada bola. En un tablero de 20×20, cuya área inicial de cada bola es de 10×20, el número de casillas es de 200, luego el número de puntos es 200.</p> <p>Cada vez que una bola se adentre en la zona de la bola contraria, robará una casilla y rebotará para volver a su zona del tablero. En ese momento, el marcador de la bola en cuestión se incrementará en 1, y el de la otra bola se reducirá en 1.</p> <p>¡Este es el delicado equilibrio entre las fuerzas del Yin y del Yang!</p> <span id="more-3778"></span> <h2 class="wp-block-heading">La versión IV</h2> <p>Hay pocos cambios en esta versión.</p> <pre class="wp-block-code"><code>100 REMark Yin & Yang v.4110 REMark GPL, 2024, Badaman120 REMark Colisiones y puntuaciones130 :140 CLEAR: RANDOMISE: ch%=3: ch2%=4150 dev$="mdv1_": prg$="yinyang": v$="v4"160 :170 INICIO: PANTALLA180 REPeat prg190 n%=1-n%200 BORRA(n%): CALCULA(n%)210 MUEVE(n%): PRUEBA(n%)220 IF KEYROW(1)=8: EXIT prg: REMark ESC230 END REPeat prg240 FIN: STOP250 :260 DEFine PROCedure sa270 REMark Salva los cambios280 file$ = dev$&prg$&"_"&v$&"_bas"290 DELETE file$ : SAVE file$300 END DEFine sa310 :320 DEFine PROCedure INICIO330 REMark Inicializacion del programa340 an%=20-1: al%=20-1350 DIM tablero%(an%, al%): DIM b%(1,5)360 f$=" ": b$="O": REMark b$=CHR$(226)370 FOR i=0 TO 19380 FOR j= 0 TO 9: tablero%(i,j)=0390 FOR j=10 TO 19: tablero%(i,j)=1400 END FOR i410 REMark Bolas, posiciones 'x' e 'y'420 b%(0,0)=RND( 0 TO 18) : REMark x1430 b%(0,1)=RND( 0 TO 9) : REMark y1440 b%(1,0)=RND( 1 TO 19) : REMark x2450 b%(1,1)=RND(10 TO 19) : REMark y2460 REMark Desplazamientos 'dx' y 'dy'470 b%(0,2)= 1: b%(0,3)= 1: REMark d1480 b%(1,2)=-1: b%(1,3)=-1: REMark d2490 REMark Ambas puntuaciones500 b%(0,4)=200 : b%(1,4)=200510 REMark Colores520 b%(0,5)=1 : b%(1,5)=6530 n%=1 : REMark Bola alterna540 END DEFine INICIO550 :560 DEFine PROCedure FIN570 REMark Finalizacion del programa580 CLOSE #ch%: CLOSE #ch2%: MODE 4590 END DEFine FIN600 :610 DEFine PROCedure PANTALLA620 REMark Presentacion de pantalla630 MODE 8640 REMark Dibuja tablero650 OPEN #ch%,scr_512x256a0x0660 OPEN #ch2%,scr_324x225a97x18670 PAPER #ch%,5,7: CLS #ch%680 PAPER #ch2%,0: CLS #ch2%690 WINDOW #ch%,324,202,94,16700 WINDOW #ch2%,324,22,94,218710 PAPER #ch%,b%(0,5): CLS #ch%720 PAPER #ch2%,3: CLS #ch2%730 BORDER #ch%,1,3: BORDER #ch2%,1740 BLOCK #ch%,160,200,160,0,b%(1,5)750 CSIZE #ch%,3,0: CSIZE #ch2%,0,1760 INK #ch2%,4: CURSOR #ch2%,99,0770 PRINT #ch2%,"YIN & YANG"780 INK #ch2%,7790 REMark Posicion inicial de pelotas800 FOR i=0,1: MUEVE(i): MARCADOR(i)810 END DEFine PANTALLA820 :830 DEFine PROCedure MARCADOR(bola%)840 REMark Actualiza el marcador850 CURSOR #ch2%,283*bola%,0860 PRINT #ch2%,CERO$(b%(bola%,4))870 END DEFine MARCADOR880 :890 DEFine FuNction CERO$(valor)900 REMark Rellena con ceros, max. 999910 txt$=valor: ln%=LEN(txt$)920 RETurn FILL$("0",3-ln%)&txt$930 END DEFine CERO$940 :950 DEFine PROCedure BORRA(bola%)960 REMark Borra la bola970 LOCal x%, y%, c1%980 x%=b%(bola%,0) : y%=b%(bola%,1)990 c1%=b%(bola%,5): PAPER #ch%,c1%1000 AT #ch%,x%,y%: PRINT #ch%,f$1010 END DEFine BORRA1020 :1030 DEFine PROCedure CALCULA(bola%)1040 REMark Calcula un movimiento1050 LOCal x%, y%, dx%, dy%1060 x%=b%(bola%,0): dx%=b%(bola%,2)1070 y%=b%(bola%,1): dy%=b%(bola%,3)1080 x%=x%+dx%: b%(bola%,0)=x%1090 y%=y%+dy%: b%(bola%,1)=y%1100 END DEFine CALCULA1110 :1120 DEFine PROCedure MUEVE(bola%)1130 REMark Mueve la bola1140 LOCal x%, y%, c1%, c2%1150 x%=b%(bola%,0): y%=b%(bola%,1)1160 c1%=b%(bola%,5): c2%=b%(1-bola%,5)1170 PAPER #ch%,c1%: INK #ch%,c2%1180 AT #ch%,x%,y% : PRINT #ch%,b$1190 END DEFine MUEVE1200 :1210 DEFine PROCedure PRUEBA(bola%)1220 REMark Comprueba colisiones1230 LOCal x%, y%, dx%, dy%1240 x%=b%(bola%,0): dx%=b%(bola%,2)1250 y%=b%(bola%,1): dy%=b%(bola%,3)1260 :1270 IF tablero%(x%, y%)=1-bola% THEN1280 IF y%-dy%>1 AND y%-dy%<18 THEN1290 dy%=-dy%: b%(bola%,3)=dy%1300 tablero%(x%, y%)=bola%1310 b%(bola%,4)=b%(bola%,4)+11320 b%(1-bola%,4)=b%(1-bola%,4)-11330 FOR i=0,1: MARCADOR(i)1340 END IF1350 END IF1360 :1370 IF x%=0 OR x%=19: b%(bola%,2)=-dx%1380 IF y%=0 OR y%=19: b%(bola%,3)=-dy%1390 END DEFine PRUEBA</code></pre> <h2 class="wp-block-heading">Rebotes</h2> <p>En estas pocas líneas de código reside la «magia» de la demo:</p> <pre class="wp-block-code"><code>1270 IF tablero%(x%, y%)=1-bola% THEN1280 IF y%-dy%>1 AND y%-dy%<18 THEN1290 dy%=-dy%: b%(bola%,3)=dy%1300 tablero%(x%, y%)=bola%1310 b%(bola%,4)=b%(bola%,4)+11320 b%(1-bola%,4)=b%(1-bola%,4)-11330 FOR i=0,1: MARCADOR(i)1340 END IF1350 END IF</code></pre> <p>Dentro del procedimiento PRUEBA(), en la línea 1270, compruebo si la bola se encuentra en una posición del tablero que corresponde a la bola contraria (1-bola%).</p> <p>Si es así toca hacer rebote para volver a la zona de la bola, como si nos hubiésemos topado con una pared, y rebotásemos, pero puede que, al volver, nos topemos con otra zona del contrario que nos haga rebotar de nuevo. Puede que esto ocurra cerca de los bordes del tablero, y nos salgamos del mismo. Para evitarlo, hago una segunda comprobación.</p> <p>En la línea 1280 me aseguro de que, si hago un cambio de dirección en Y, este cambio no hará que me salga del tablero, y para ello me aseguro de que el resultado del cambio de dirección dejará la bola más allá de la columna 1 y más acá de la columna 18, de otra forma no haré rebote, y evitaré salirme si la bola choca y me devuleve al borde del tablero.</p> <p>Por supuesto, ambas comprobaciones pueden hacerse en un solo IF, aunándolas.</p> <p>Si todo fue bien, en la línea 1290, cambio la dirección de dy% y lo guardo en la matriz b%().</p> <p>Luego asigno la casilla del tablero a la bola que se adentró en ella en la línea 1300.</p> <p>En las líneas 1310 y 1320 aumento el marcador de la bola en cuestión y decremento el marcador de la otra bola, respectivamente.</p> <p>Y en la línea 1330 actualizo ambos marcadores en la pantalla mediante un bucle y la llamada al procedimiento MARCADOR().</p> <p>Ya sólo queda ejecutar la demo.</p> <h2 class="wp-block-heading">Repasando</h2> <p>La demo que hemos construido se ha hecho pensando no tanto en la optimización del código como en su forma y la aplicación de buenas prácticas.</p> <p>Primeramente definimos la estructura del programa, incluyendo los procedimientos básicos y el bucle principal. Luego, con la planificación de cómo iba a funcionar el programa, determinamos las variables que usaríamos y dimos forma al tablero en pantalla.</p> <p>Teniendo el tablero y las variables disponibles, el siguiente paso era hacer que las bolas de la demo se moviesen libremente por el tablero sin salirse. Y finalmente hemos conseguido gestionar las colisiones de las bolas con las áreas del contrario y actualizar los marcadores.</p> <p>En esta serie de «fascículos» pues se han puesto las bases de la construcción de programas en SuperBASIC. Con esta experiencia, y la documentación de lenguaje, no será dificil aventurarse a construir otras demos o juegos o programas… Ya tienes por dónde empezar con este ejemplo.</p> <p>Espero que, esta serie os anime a crear nuevas aplicaciones para el QL 40 años después. </p> <h2 class="wp-block-heading">Ejercicio</h2> <p>Si ejecutas el programa, verás algo curioso. Dado que estamos usando posiciones absolutas de caracteres en el tablero, llega un momento en que se produce un equilibrio inalterable entre ambas bolas. El marcador se estabiliza, o sube y baja un punto todo el tiempo.</p> <p>Además verás que se genera un damero en el tablero. Esto también tiene como origen la forma en que las bolas se mueven por él.</p> <p>¿Te animas a cambiar la forma en que se mueven las bolas en la demo, usando saltos en pixeles en vez de en caracteres? Esto cambiará ciertas estructuras de la demo y te permitirá crear rebotes basándote en qué porcentaje de la bola toca una celda del contrario, pudiendo determinar como será el rebote. Revisa el código de la demo <a href="https://github.com/vnglst/pong-wars">PongWars</a> en la que se basa esta serie de fascículos.</p> <h2 class="wp-block-heading">Hagamos un juego</h2> <p>Cuando tengas hecho el ejercicio anterior, ¡podrás convertir esta demo en un juego!</p> <p>Vamos a crear dos paletas, como en el pong, pero estas no se encontrarán a los lados, sino en el medio, en la frontera central de su territorio, cara a cara con el enemigo. La paleta de la bola 1 estará en la posición vertical 9, y la paleta de la otra bola en la posición vertical 10.</p> <p>Como en el pong, las paletas se moverán sólo verticalmente, y en ellas podrás hacer rebotar la bola del contrario, parando su avance sobre tu zona del tablero y devolviéndola a su zona. Igualmente puedes ayudar a tu bola a adentrarse más en la zona del contrario haciéndola rebotar sobre tu paleta. Y, como en el juego original, en función de en que parte de la paleta rebote la bola, esta saldrá disparada con un ángulo determinado y una velocidad determinada. Las bolas pueden rebotar por ambas caras de cada paleta.</p> <p>Gana la partida el primero que consigua que su bola se adentre en la zona del contrario hasta tocar su pared vertical, es decir, que la bola 1 llegue a la posición horizontal 19 o que la bola 2 llegue a la posición horizontal 0. Puedes pintar estas paredes con otro color si lo deseas.</p> <p>Pon cuidado en todo el desarrollo, y ¡comparte tu juego!</p> <h2 class="wp-block-heading">Enlaces recomendados</h2> <ul><li><a href="https://sinclairql.speccy.org/manuales/sqlgu.htm">Manual del QL en español</a></li> <li><a href="https://sinclairql.speccy.org/manuales/tk2/index.htm">Manual de Toolkit II en español</a></li> <li><a href="https://github.com/JavGuerra/Sinclair-QL-YinYang.githttps://github.com/JavGuerra/Sinclair-QL-YinYang.git">Código en GitHub – repo Sinclair-QL-YinYang</a></li></ul> <p>Puedes seguir los comentarios de la comunidad en: <a href="https://retrowiki.es/viewtopic.php?f=98&t=200040293" rel="nofollow">https://retrowiki.es/viewtopic.php?f=98&t=200040293</a></p>]]></content:encoded> <wfw:commentRss>https://sinclairqles.wordpress.com/2024/03/30/programando-mi-primera-demo-en-ql-fasciculo-iv-colisiones-y-puntuaciones/feed/</wfw:commentRss> <slash:comments>2</slash:comments> <media:content url="https://0.gravatar.com/avatar/670e7a411bd32dc3309ddc8a7ac12a4cfa6305652b5ecbfc62415bc659494371?s=96&d=retro&r=G" medium="image"> <media:title type="html">badaman</media:title> </media:content> </item> <item> <title>Programando mi primera Demo en QL – fascículo III, movimiento y rebotes</title> <link>https://sinclairqles.wordpress.com/2024/03/29/programando-mi-primera-demo-en-ql-fasciculo-iii-movimiento-y-rebotes/</link> <comments>https://sinclairqles.wordpress.com/2024/03/29/programando-mi-primera-demo-en-ql-fasciculo-iii-movimiento-y-rebotes/#comments</comments> <dc:creator><![CDATA[badaman]]></dc:creator> <pubDate>Fri, 29 Mar 2024 10:36:38 +0000</pubDate> <category><![CDATA[Programación]]></category> <category><![CDATA[SuperBASIC]]></category> <guid isPermaLink="false">http://sinclairqles.wordpress.com/?p=3751</guid> <description><![CDATA[Esta colección de pocos artículos pretende dar a conocer las particularidades del SuperBASIC mediante un ejemplo práctico, la realización de una pequeña demo.<p><a href="https://sinclairqles.wordpress.com/2024/03/29/programando-mi-primera-demo-en-ql-fasciculo-iii-movimiento-y-rebotes/" class="more-link">Leer Más</a></p>]]></description> <content:encoded><![CDATA[<p>Viene del artículo: «<a href="https://sinclairqles.wordpress.com/2024/03/23/programando-mi-primera-demo-en-ql-fasciculo-ii-variables-y-tablero/">Programando mi propia demo en QL II</a>»</p> <p>Sigo con esta serie de artículos, y hoy toca hablar de movimiento y rebotes de las bolas de la demo.</p> <h2 class="wp-block-heading">La dinámica</h2> <p>En anteriores entregas, hemos definido la estructura del programa, y luego inicializado las variables y dibujado la interfaz. Vamos a ver cómo darle movimiento a las bolas dentro del tablero y hacer algunas comprobaciones básicas para evitar que las bolas se salgan del mismo.</p> <p>Como sabemos, cada bola tiene una posición X e Y en el tablero, que corresponde con la posición horizontal y vertical en el mismo. Para movernos por el tablero, que tiene unas dimensiones concretas, debemos sumar a las posiciones X e Y de cada bola, alternativamente, el valor 1 para avanzar. Con esto calculamos el siguiente movimiento. Es decir, que si la bola 1 está en la posición X=2, Y=5, le sumaremos uno a ambas, y calculamos así el movimiento: X=X+1, X=3; Y=Y+1, Y=6. Lo mismo para las posiciones X e Y de la bola 2. Primero la bola 1, luego la bola 2, alternativamente, sin parar.</p> <p>Al valor que le sumamos a las posiciones X e Y le llamamos desplazamiento. Nos referiremos a ellos como DX y DY. Así que tenemos X1, Y1, DX1, DY1 para la bola 1 y X2, Y2, DX2, DY2 para la bola 2.</p> <p>Pero si el desplazamiento es 1, ¿porqué necesitamos una variable?. Pues porque el desplazamiento puede ser negativo. Imagina que avanzamos con la bola 1 hasta llegar al borde del tablero. El siguiente movimiento no puede ser sumarle 1 a la posición X o Y. Debemos aplicar un cambio de dirección de la bola, com osi esta hubiera rebotado.</p> <span id="more-3751"></span> <p>Si, por ejemplo, X1=10 e Y1=19, siendo que 19 es el tope del tablero, el valor de DY no puede ser 1, debe cambiar a -1, de esta forma, el cálculo del siguiente movimiento seria: X1=10 +1= 11; Y1=10+(-1)=9. Hemos cambiado la dirección del movimiento vertical de la bola 1, y así seguirá, hasta que la bola rebote en otra pared, y debamos cambiar el valor de DX o DY. </p> <p>Para hacer este cambio, siendo que el valor de DY es 1 inicialmente, sería suficiente con hacer:</p> <pre class="wp-block-code"><code>DY = -DY</code></pre> <p>Consulta la <a href="https://sinclairqles.wordpress.com/2024/03/23/programando-mi-primera-demo-en-ql-fasciculo-ii-variables-y-tablero/">matriz de la entrada anterior</a>, porque en el programa, no se usan las variables que he puesto en este ejemplo, sino que los datos se guardan en la matriz b%(). Es lo mismo. sigue habiendo una X e Y por cada bola, y un desplazamiento de X e Y por cada bola, solo que, por ejemplo, para referirnos a la Y de la bola 1, debemos usar b%(0, 1). Y para referirnos a su desplazamiento, deberemos usar b%(0, 3).</p> <p>Para hacer el cambio de dirección, entonces, usaríamos:</p> <pre class="wp-block-code"><code>b%(0, 3) = -b%(0, 3)</code></pre> <p>Y para añadir el desplazamiento a la Y después:</p> <pre class="wp-block-code"><code>b%(0, 1) = b%(0, 1) + b%(0, 3)</code></pre> <p>Veamos cómo usarlo en el programa.</p> <h2 class="wp-block-heading">La versión III</h2> <p>En esta nueva versión del programa se han llevado a cabo algunos cambios y se ha añadido varias funciones. Este es el código.</p> <pre class="wp-block-code"><code>100 REMark Yin & Yang v.3<br>110 REMark GPL, 2024, Badaman<br>120 REMark Movimiento y rebotes<br>130 :<br>140 CLEAR: RANDOMISE: ch%=3: ch2%=4<br>150 dev$="mdv1_": prg$="yinyang": v$="v3"<br>160 :<br>170 INICIO: PANTALLA<br>180 REPeat prg<br>190 n%=1-n%<br>200 BORRA(n%): CALCULA(n%)<br>210 MUEVE(n%): PRUEBA(n%)<br>220 IF KEYROW(1)=8: EXIT prg: REMark ESC<br>230 END REPeat prg<br>240 FIN: STOP<br>250 :<br>260 DEFine PROCedure sa<br>270 REMark Salva los cambios<br>280 file$ = dev$&prg$&"_"&v$&"_bas"<br>290 DELETE file$ : SAVE file$<br>300 END DEFine sa<br>310 :<br>320 DEFine PROCedure INICIO<br>330 REMark Inicializacion del programa<br>340 an%=20-1: al%=20-1<br>350 DIM tablero%(an%, al%): DIM b%(1,5)<br>360 f$=" ": b$="O": REMark b$=CHR$(226)<br>370 FOR i=0 TO 19<br>380 FOR j= 0 TO 9: tablero%(i,j)=0<br>390 FOR j=10 TO 19: tablero%(i,j)=1<br>400 END FOR i<br>410 REMark Bolas, posiciones 'x' e 'y'<br>420 b%(0,0)=RND( 0 TO 18) : REMark x1<br>430 b%(0,1)=RND( 0 TO 9) : REMark y1<br>440 b%(1,0)=RND( 1 TO 19) : REMark x2<br>450 b%(1,1)=RND(10 TO 19) : REMark y2<br>460 REMark Desplazamientos 'dx' y 'dy'<br>470 b%(0,2)= 1: b%(0,3)= 1: REMark d1<br>480 b%(1,2)=-1: b%(1,3)=-1: REMark d2<br>490 REMark Ambas puntuaciones<br>500 b%(0,4)=0 : b%(1,4)=0<br>510 REMark Colores<br>520 b%(0,5)=1 : b%(1,5)=6<br>530 n%=1 : REMark Bola alterna<br>540 END DEFine INICIO<br>550 :<br>560 DEFine PROCedure FIN<br>570 REMark Finalizacion del programa<br>580 CLOSE #ch%: CLOSE #ch2%: MODE 4<br>590 END DEFine FIN<br>600 :<br>610 DEFine PROCedure PANTALLA<br>620 REMark Presentacion de pantalla<br>630 MODE 8<br>640 REMark Dibuja tablero<br>650 OPEN #ch%,scr_512x256a0x0<br>660 OPEN #ch2%,scr_324x225a97x18<br>670 PAPER #ch%,5,7: CLS #ch%<br>680 PAPER #ch2%,0: CLS #ch2%<br>690 WINDOW #ch%,324,202,94,16<br>700 WINDOW #ch2%,324,22,94,218<br>710 PAPER #ch%,b%(0,5): CLS #ch%<br>720 PAPER #ch2%,3: CLS #ch2%<br>730 BORDER #ch%,1,3: BORDER #ch2%,1<br>740 BLOCK #ch%,160,200,160,0,b%(1,5)<br>750 CSIZE #ch%,3,0: CSIZE #ch2%,0,1<br>760 INK #ch2%,4: CURSOR #ch2%,99,0<br>770 PRINT #ch2%,"YIN & YANG"<br>780 INK #ch2%,7<br>790 REMark Posicion inicial de pelotas<br>800 FOR i=0,1: MUEVE(i): MARCADOR(i)<br>810 END DEFine PANTALLA<br>820 :<br>830 DEFine PROCedure MARCADOR(bola%)<br>840 REMark Actualiza el marcador<br>850 CURSOR #ch2%,283*bola%,0<br>860 PRINT #ch2%,CERO$(b%(bola%,4))<br>870 END DEFine MARCADOR<br>880 :<br>890 DEFine FuNction CERO$(valor)<br>900 REMark Rellena con ceros, max. 999<br>910 txt$=valor: ln%=LEN(txt$)<br>920 RETurn FILL$("0",3-ln%)&txt$<br>930 END DEFine CERO$<br>940 :<br>950 DEFine PROCedure BORRA(bola%)<br>960 REMark Borra la bola<br>970 LOCal x%, y%, c1%<br>980 x%=b%(bola%,0) : y%=b%(bola%,1)<br>990 c1%=b%(bola%,5): PAPER #ch%,c1%<br>1000 AT #ch%,x%,y%: PRINT #ch%,f$<br>1010 END DEFine BORRA<br>1020 :<br>1030 DEFine PROCedure CALCULA(bola%)<br>1040 REMark Calcula un movimiento<br>1050 LOCal x%, y%, dx%, dy%<br>1060 x%=b%(bola%,0): dx%=b%(bola%,2)<br>1070 y%=b%(bola%,1): dy%=b%(bola%,3)<br>1080 x%=x%+dx%: b%(bola%,0)=x%<br>1090 y%=y%+dy%: b%(bola%,1)=y%<br>1100 END DEFine CALCULA<br>1110 :<br>1120 DEFine PROCedure MUEVE(bola%)<br>1130 REMark Mueve la bola<br>1140 LOCal x%, y%, c1%, c2%<br>1150 x%=b%(bola%,0): y%=b%(bola%,1)<br>1160 c1%=b%(bola%,5): c2%=b%(1-bola%,5)<br>1170 PAPER #ch%,c1%: INK #ch%,c2%<br>1180 AT #ch%,x%,y% : PRINT #ch%,b$<br>1190 END DEFine MUEVE<br>1200 :<br>1210 DEFine PROCedure PRUEBA(bola%)<br>1220 REMark Comprueba si rebota<br>1230 LOCal x%, y%, dx%, dy%<br>1240 x%=b%(bola%,0): dx%=b%(bola%,2)<br>1250 y%=b%(bola%,1): dy%=b%(bola%,3)<br>1260 IF x%=0 OR x%=19: b%(bola%,2)=-dx%<br>1270 IF y%=0 OR y%=19: b%(bola%,3)=-dy%<br>1280 END DEFine PRUEBA</code></pre> <p>En la línea 530 inicializo una nueva variable n%. La usaré en el flujo principal del programa, en la línea 190. Esta variable va a servirnos para identificar, alternativamente, la bola con la que vamos a trabajar, y lo hará con la fórmula:</p> <p>n% = 1 – n%</p> <p>Como n% empeiza valiendo 1, el valor de n% al realziar esta operación es 0, porque 1 – 1 = 0. La siguiente vez el valor de n% será 1, porque 1 – 0 = 1, y vuelta a empezar, 0, 1, 0, 1…</p> <p>Como se aprecia, en las líneas 200 y 210 se han añadido cuatro procedimientos que toman como parámetro de entrada este valor. Veremos a continuación que hace cada uno de ellos, pero lo que hagan va a estar supeditado al valor de n%, que indica en todo momento si estamos trabajando con la bola 1 (valor 0) o con la bola 2 (valor 1). </p> <p>Seguimos. Las líneas de la 780 a la 830 han sido sustituidas por una única línea:</p> <pre class="wp-block-code"><code>FOR i=0,1: MUEVE(i): MARCADOR(i)</code></pre> <p>Como veremos, MUEVE() pinta una bola, la que le digamos, y MARCADOR() pinta el marcador de una bola, también la que le digamos.</p> <p>El bucle FOR, que no requiere END FOR porque todo él está en una línea, es extraño. No tiene rangos, sino una lista de números. En SuperBASIC, los valores que tomará la variable del bucle en cada iteración pueden definirse como un rango (n TO m) o como iuna lista de valores (a, b, c, d…). Aquí uso esta lista de valores (0, 1) para dibujar la bola 1 y la bola 2, una en cada iteración del bucle, y sus marcadores.</p> <p>El procedimiento MARCADOR() también ha cambiado. Ahora, como debe servir no sólo al inicio para pintar los marcadores, sino durante toda la demo para mostrar las actualizaciones de los marcadores alternos, recibe el parámetro bola%, que le permitirá saber en qué posición pintará el marcador, y qué valor debe poner en el marcador, apoyándose en la función CERO$().</p> <p>En la siguiente línea decide la posición:</p> <pre class="wp-block-code"><code>850 CURSOR #ch2%,283*bola%,0</code></pre> <p>Como el marcador de la bola 1 debe pintarse en la posición 0,0 y el de la bola 2 en la posición 283,0, Para poner la posición correcta segun la bola, multiplico el valor 283 por bola%, de tal forma que si bola% es cero, 283*0 = 0, y si es 1, 283*1 = 283.</p> <p>En esta línea puinto la bola que corresponda:</p> <pre class="wp-block-code"><code>860 PRINT #ch2%,CERO$(b%(bola%,4))</code></pre> <p>Como b%(bola%,4) contendrá la puntuación de la bola en cuestión, con PRINT imprimo en la posición ya calculada el marcador, usando la función CERO$() que devuelve una cadena de texto con ceros a la izquierda.</p> <p>Bien, para mover una bola, necesitamos:</p> <ul><li>Borrarla de su posición actual</li> <li>Calcular la nueva posición</li> <li>Pintarla en su nueva posición</li> <li>Comprobar si hay colisiones</li></ul> <p>Tal como dije, cuatro nuevas funciones se suman a esta versión. Cada una de ellas corresponde a uno de estos pasos. Veámoslas.</p> <h2 class="wp-block-heading">BORRA()</h2> <p>Código:</p> <pre class="wp-block-code"><code>950 DEFine PROCedure BORRA(bola%)960 REMark Borra la bola970 LOCal x%, y%, c1%980 x%=b%(bola%,0) : y%=b%(bola%,1)990 c1%=b%(bola%,5): PAPER #ch%,c1%1000 AT #ch%,x%,y%: PRINT #ch%,f$1010 END DEFine BORRA</code></pre> <p>A efectos de aportar claridad a la explicación exclusivamente, en este yt sucesivos procedimientos usaré una serie de variables locales, es decir, cuyo ámbito estará sólo dentro del procedimiento. Así, x% e y% contendrán la posición de la bola en el tablero, y c1% el color de fondo de la bola con el que sobreimprimiremos f%, que contiene un espacio vacío. Con esto borramos la bola en cuestión, la bola 1 o la bola 2 dependiendo del valor de la variable bola%.</p> <h2 class="wp-block-heading">CALCULA()</h2> <p>Código:</p> <pre class="wp-block-code"><code>1030 DEFine PROCedure CALCULA(bola%)1040 REMark Calcula un movimiento1050 LOCal x%, y%, dx%, dy%1060 x%=b%(bola%,0): dx%=b%(bola%,2)1070 y%=b%(bola%,1): dy%=b%(bola%,3)1080 x%=x%+dx%: b%(bola%,0)=x%1090 y%=y%+dy%: b%(bola%,1)=y%1100 END DEFine CALCULA</code></pre> <p> Mismo caso en este procedimiento. Aquí, con las varialbes locales x%, y%, dx%, dy% calculo la siguiente posición de la bola, y la guardo en la matriz. Ver las líneas 1080 y 1090. a x% le sumo dx% y lo guardo en b%() y lo mismo con la y%.</p> <h2 class="wp-block-heading">MUEVE()</h2> <p>Código:</p> <pre class="wp-block-code"><code>1120 DEFine PROCedure MUEVE(bola%)1130 REMark Mueve la bola1140 LOCal x%, y%, c1%, c2%1150 x%=b%(bola%,0): y%=b%(bola%,1)1160 c1%=b%(bola%,5): c2%=b%(1-bola%,5)1170 PAPER #ch%,c1%: INK #ch%,c2%1180 AT #ch%,x%,y% : PRINT #ch%,b$1190 END DEFine MUEVE</code></pre> <p>En esta ocasión uso X e Y, el color del fondo y el color de la tinta, porque se trata de dibujar la bola que corresponda con sus colores. Como los colores de la bola y del fondo son inversos en cada bola, es decir, la bola 1 tiene de fondo el color azul y la tinta el color amarillo, y la bola 2 al contrario, el fondo amarillo y el color de la tinta el azul, el color c2%, que corresponde a la tinta, se calcula accediendo al color de la bola contraria, empleando la formula 1-bola% que vimos antes en n%.</p> <h2 class="wp-block-heading">PRUEBA()</h2> <p>Código:</p> <pre class="wp-block-code"><code>1210 DEFine PROCedure PRUEBA(bola%)1220 REMark Comprueba si rebota1230 LOCal x%, y%, dx%, dy%1240 x%=b%(bola%,0): dx%=b%(bola%,2)1250 y%=b%(bola%,1): dy%=b%(bola%,3)1260 IF x%=0 OR x%=19: b%(bola%,2)=-dx%1270 IF y%=0 OR y%=19: b%(bola%,3)=-dy%1280 END DEFine PRUEBA</code></pre> <p>Esta es la parte interesante, donde se comprueba si hay rebotes y, en tal caso, se hacen los cambios de dirección. Aquí usaré la posición X e Y de la bola y sus correspondientes desplazamientos DX y DY.</p> <p>En las líneas 1260 y 1270 puede verse que si el valor de X o de Y es 0 o es 19, que son los límites del tablero, el valor de DX o de DY cambia, es decir, se convierte en el opuesto (p.ej. DX=-DX). Y si cambia, se guarda su valor opuesto en la matriz.</p> <p>Y vuelta a empezar: borrar la bola, calcular la nueva posición, pintar la bola, compribar colisiones. Pruebalo ejecutando el programa.</p> <h2 class="wp-block-heading">Y en la próxima entrega…</h2> <p>.La próxima entrega será la última, y en ella veremos como aumentar el marcador y comprobar colisiones con la zona del contrario.</p> <h2 class="wp-block-heading">Ejercicio</h2> <p>Tomando como base el ejercicio anterior de comer donuts, esta vez vamos a hacer que, cuando el avatar se coma un donut, su cuerpo crezca, y le salga una cola tan larga como donuts ha comido. Por supuesto, a medida que movemos el avatar, su cola se arrastra con el, como en el conocido juego Snake. Esto es, por si no lo habáis notado, un clon de dicho juego.</p> <p>Las partes del cuerpo podemos representarlasa con la letra «M». Para arrastrar el cuerpo de nuestro avatar con forma de serpiente, con cada movimineto, debemos limpiar la cola de la serpiente. Esto implica que, de alguna forma, debemos guardar en orden, en alguna estructura, las posiciones XY no sólo del avatar (la cabeza de la serpiente), sino de cada parte del cuerpo, y esta estructura será mayor cuanto más grande se haga la serpiente como consecuencia de comer donuts.</p> <p>¿Y qué tal si le añades un marcador donde ir anotando puntos?</p> <h2 class="wp-block-heading">Enlaces recomendados</h2> <ul><li><a href="https://sinclairql.speccy.org/manuales/sqlgu.htm">Manual del QL en español</a></li> <li><a href="https://sinclairql.speccy.org/manuales/tk2/index.htm">Manual de Toolkit II en español</a></li> <li><a href="https://github.com/JavGuerra/Sinclair-QL-YinYang.githttps://github.com/JavGuerra/Sinclair-QL-YinYang.git">Código en GitHub – repo Sinclair-QL-YinYang</a></li></ul> <p>Puedes seguir los comentarios de la comunidad en: <a href="https://retrowiki.es/viewtopic.php?f=98&t=200040286" rel="nofollow">https://retrowiki.es/viewtopic.php?f=98&t=200040286</a></p> <h2 class="wp-block-heading">Siguiente entrega</h2> <p><blockquote class="wp-embedded-content" data-secret="zPZm31v4wk"><a href="https://sinclairqles.wordpress.com/2024/03/30/programando-mi-primera-demo-en-ql-fasciculo-iv-colisiones-y-puntuaciones/">Programando mi primera Demo en QL – fascículo IV, colisiones y puntuaciones</a></blockquote><iframe class="wp-embedded-content" sandbox="allow-scripts" security="restricted" title="«Programando mi primera Demo en QL – fascículo IV, colisiones y puntuaciones» — QBlog" src="https://sinclairqles.wordpress.com/2024/03/30/programando-mi-primera-demo-en-ql-fasciculo-iv-colisiones-y-puntuaciones/embed/#?secret=6gUQ6OBrfe#?secret=zPZm31v4wk" data-secret="zPZm31v4wk" width="545" height="307" frameborder="0" marginwidth="0" marginheight="0" scrolling="no"></iframe></p>]]></content:encoded> <wfw:commentRss>https://sinclairqles.wordpress.com/2024/03/29/programando-mi-primera-demo-en-ql-fasciculo-iii-movimiento-y-rebotes/feed/</wfw:commentRss> <slash:comments>3</slash:comments> <media:content url="https://0.gravatar.com/avatar/670e7a411bd32dc3309ddc8a7ac12a4cfa6305652b5ecbfc62415bc659494371?s=96&d=retro&r=G" medium="image"> <media:title type="html">badaman</media:title> </media:content> </item> <item> <title>Programando mi primera Demo en QL – fascículo II, variables y tablero</title> <link>https://sinclairqles.wordpress.com/2024/03/23/programando-mi-primera-demo-en-ql-fasciculo-ii-variables-y-tablero/</link> <comments>https://sinclairqles.wordpress.com/2024/03/23/programando-mi-primera-demo-en-ql-fasciculo-ii-variables-y-tablero/#comments</comments> <dc:creator><![CDATA[badaman]]></dc:creator> <pubDate>Sat, 23 Mar 2024 20:58:56 +0000</pubDate> <category><![CDATA[Programación]]></category> <category><![CDATA[SuperBASIC]]></category> <guid isPermaLink="false">http://sinclairqles.wordpress.com/?p=3711</guid> <description><![CDATA[Esta colección de pocos artículos pretende dar a conocer las particularidades del SuperBASIC mediante un ejemplo práctico, la realización de una pequeña demo.<p><a href="https://sinclairqles.wordpress.com/2024/03/23/programando-mi-primera-demo-en-ql-fasciculo-ii-variables-y-tablero/" class="more-link">Leer Más</a></p>]]></description> <content:encoded><![CDATA[<p>Viene del artículo: «<a href="https://sinclairqles.wordpress.com/2024/03/16/programando-mi-primera-demo-en-ql-fasciculo-i-los-preparativos/">Programando mi propia demo en QL I</a>»</p> <p>Sigo con esta serie de artículos, y empezamos hablando de los tipos de los variables.</p> <h2 class="wp-block-heading">Variables</h2> <p>Como en otros BASIC de la época, en SuperBASIC las variables numéricas se indican con una serie de letras y números, dando comienzo con una letra, y pudiendo usar guiones bajos, pero no otro signo.</p> <p>Las variables de cadeta o de texto, emplean el símbolo $ al final. Así «var_numero» y «var_cadena$» serán respectivamente, una variable numérica y una variable de cadena.</p> <p>Pero en SuperBASIC podemos indicar que una variable va a contener un valor numérico entero añadiendo % al final del nombre de la variable, así pues «var_entero%» será una variable que almacenará valores enteros. Si le asignamos un valor decimal, sólo almacenará la parte entera. Esto es útil para reducir el consumo de memoria. Las variables enteras ocupan menos espacio en memoria y la aplicación funcionará más rápido, y esto también es de utilidad si decidimos compilar nuestra aplicación, ya que el ejecutable ocupará menos.</p> <p>Pero en SuperBASIC, este tipo de variables enteras no pueden usarse en los bucles, a no ser que hayamos cambiado nuestra ROM por la ROM Minerva, una ROM avanzada a la ROM original del QL, que sí lo permite.</p> <p>Como siempre, puedes conocer más leyendo la guía del usuario.</p> <span id="more-3711"></span> <h2 class="wp-block-heading">La versión II</h2> <p> En esta nueva versión del programa he añadido contenido a los procedimientos INICIO, PANTALLA y FIN, he añadido un nuevo procedimiento MARCADOR y una función llamada CEROS$, que recibe un parámetro, como luego veremos.</p> <p>El nuevo código es este: </p> <pre class="wp-block-code"><code>100 REMark Yin & Yang v.2<br>110 REMark GPL, 2024, Badaman<br>120 REMark Variables y tablero<br>130 :<br>140 CLEAR: RANDOMISE: ch%=3: ch2%=4<br>150 dev$="mdv1_": prg$="yinyang": v$="v2"<br>160 :<br>170 INICIO: PANTALLA<br>180 REPeat prg<br>190 REMark codigo del programa<br>200 IF KEYROW(1)=8: EXIT prg: REMark ESC<br>210 END REPeat prg<br>220 FIN: STOP<br>230 :<br>240 DEFine PROCedure sa<br>250 REMark Salva los cambios<br>260 file$ = dev$&prg$&"_"&v$&"_bas"<br>270 DELETE file$ : SAVE file$<br>280 END DEFine sa<br>290 :<br>300 DEFine PROCedure INICIO<br>310 REMark Inicializacion del programa<br>320 an%=20-1: al%=20-1<br>330 DIM tablero%(an%, al%): DIM b%(1,5)<br>340 f$=" ": b$="O": REMark b$=CHR$(226)<br>350 FOR i=0 TO 19 <br>360 FOR j= 0 TO 9: tablero%(i,j)=0<br>370 FOR j=10 TO 19: tablero%(i,j)=1<br>380 END FOR i<br>390 REMark Bolas, posiciones 'x' e 'y'<br>400 b%(0,0)=RND( 0 TO 18) : REMark x1<br>410 b%(0,1)=RND( 0 TO 9) : REMark y1<br>420 b%(1,0)=RND( 1 TO 19) : REMark x2<br>430 b%(1,1)=RND(10 TO 19) : REMark y2<br>440 REMark Desplazamientos 'dx' y 'dy'<br>450 b%(0,2)= 1: b%(0,3)= 1: REMark d1<br>460 b%(1,2)=-1: b%(1,3)=-1: REMark d2<br>470 REMark Ambas puntuaciones<br>480 b%(0,4)=0 : b%(1,4)=0<br>490 REMark Colores<br>500 b%(0,5)=1 : b%(1,5)=6<br>510 END DEFine INICIO<br>520 :<br>530 DEFine PROCedure FIN<br>540 REMark Finalizacion del programa<br>550 CLOSE #ch%: CLOSE #ch2%: MODE 4<br>560 END DEFine FIN<br>570 :<br>580 DEFine PROCedure PANTALLA<br>590 REMark Presentacion de pantalla<br>600 MODE 8<br>610 REMark Dibuja tablero<br>620 c1%=b%(0,5): c2%=b%(1,5)<br>630 OPEN #ch%,scr_512x256a0x0<br>640 OPEN #ch2%,scr_324x225a97x18<br>650 PAPER #ch%,5,7: CLS #ch%<br>660 PAPER #ch2%,0: CLS #ch2%<br>670 WINDOW #ch%,324,202,94,16<br>680 WINDOW #ch2%,324,22,94,218<br>690 PAPER #ch%,c1%: CLS #ch%<br>700 PAPER #ch2%,3: CLS #ch2%<br>710 BORDER #ch%,1,3: BORDER #ch2%,1<br>720 BLOCK #ch%,160,200,160,0,c2%<br>730 CSIZE #ch%,3,0: CSIZE #ch2%,0,1<br>740 INK #ch2%,4: CURSOR #ch2%,99,0<br>750 PRINT #ch2%,"YIN & YANG"<br>760 INK #ch2%,7<br>770 REMark Posicion inicial de pelotas<br>780 PAPER #ch%,c1%: INK #ch%,c2%<br>790 AT #ch%,b%(0,0),b%(0,1)<br>800 PRINT #ch%,b$<br>810 PAPER #ch%,c2%: INK #ch%,c1%<br>820 AT #ch%,b%(1,0),b%(1,1)<br>830 PRINT #ch%,b$<br>840 MARCADOR<br>850 END DEFine PANTALLA<br>860 :<br>870 DEFine PROCedure MARCADOR<br>880 REMark Actualiza el marcador<br>890 AT #ch2%,0,0<br>900 PRINT #ch2%,CERO$(b%(0,4))<br>910 CURSOR #ch2%,283,0<br>920 PRINT #ch2%,CERO$(b%(1,4))<br>930 END DEFine MARCADOR<br>940 :<br>950 DEFine FuNction CERO$(valor)<br>960 REMark Rellena con ceros, max. 999<br>970 txt$=valor: ln%=LEN(txt$)<br>980 RETurn FILL$("0",3-ln%)&txt$<br>990 END DEFine CERO$</code></pre> <h2 class="wp-block-heading">Matrices</h2> <p>No te asustes. Esto no son Mátemáticas, o al menos no muchas Matemáticas. Ya sabemos que hay dos bolas que rebotan, esto se ve en la captura de la demo (articulo anterior). Y hay un espacio sobre el que se mueven. Llamemos a las bolas «b» y al espacio «tablero».</p> <p>Para conocer en qué posición del tablero está cada bola en un momento dado necesitaremos guardar una posición «X» y otra «Y», por cada bola, osea X1, Y1 y X2, Y2. También necesitaremos saber el desplazamiento que debemos aplicar a la bola: DX1, DY1, DX2, DY2.</p> <p>Si una bola está en la posición X,Y, la siguiente posición en la que estará será X+DX e Y+DY.</p> <p>Además, por cada bola, necesitaremos saber su color y la puntuación que tiene en cada momento.</p> <p>Son muchas variables relacionadas con una misma cosa. ¿Qué tal si las juntamos en una estructura de datos de dos dimensiones, como una tabla, en la que haya dos columnas, una para cada bola, y 6 filas, una por cada concepto? Veamos la siguiente tabla.</p> <figure class="wp-block-table"><table><tbody><tr><td><strong>Matriz: b%(1, 5)</strong></td><td class="has-text-align-center" data-align="center"><strong>Bola 1</strong></td><td class="has-text-align-center" data-align="center"><strong>Bola 2</strong></td></tr><tr><td>Posición X</td><td class="has-text-align-center" data-align="center">(0, 0)</td><td class="has-text-align-center" data-align="center">(1, 0)</td></tr><tr><td>Posición Y</td><td class="has-text-align-center" data-align="center">(0, 1)</td><td class="has-text-align-center" data-align="center">(1, 1)</td></tr><tr><td>Desplazamiento X</td><td class="has-text-align-center" data-align="center">(0, 2)</td><td class="has-text-align-center" data-align="center">(1, 2)</td></tr><tr><td>Desplazamiento Y</td><td class="has-text-align-center" data-align="center">(0, 3)</td><td class="has-text-align-center" data-align="center">(1, 3)</td></tr><tr><td>Color</td><td class="has-text-align-center" data-align="center">(0, 4)</td><td class="has-text-align-center" data-align="center">(1, 4)</td></tr><tr><td>Puntos</td><td class="has-text-align-center" data-align="center">(0, 5)</td><td class="has-text-align-center" data-align="center">(1, 5)</td></tr></tbody></table></figure> <p>Si, por djemplo, quiero saber la posición Y de la bola 2, tengo que consultar el elemento (1, 1) de la matriz. Fijate que la matriz empeiza en (0, 0), y que cada elemento de la matriz comienza por 0, o 1 según sea el valor de la bola: 0 para la primera bola (bola 1) y 1 para la segunda bola (bola 2).</p> <p>Para definir una matriz como esta, empleamos la instrucción DIM seguida del valor máximo de las dimensiones de la matriz, en este caso (1, 5):</p> <pre class="wp-block-code"><code>DIM b%(1, 5)</code></pre> <p>Como los valores que vamos a guardar son numéricos y enteros, podemos definir a la matriz como «b%». Luego veremos como poner valores en la matrizs y consultarlos.</p> <p>El tablero tiene 20 x 20 casillas. Necesitamos el tablero porque hay zonas de este que pertenecen a una bola y otras zonas que pertenencen a las otras bolas. ¿Cómo saber que zonas del tablero son de la bola 1 y cuáles de la bola 2? con una matriz que tenga las dimensiones del tablero, y que guarde, en cada elemenrto de la matriz un 0 si pertenece a la bola 1 y un 1 si pertence a la bola 2. Así:</p> <pre class="wp-block-code"><code>DIM tablero%(19, 19) </code></pre> <p>Osea, 20-1 en ambos casos. Recuerda que las matrices comienzan por 0, y de 0 a 19 van 20.</p> <p>Con esto tenemos definido cómo queremos guardar los datos. Vamos a ver cómo.</p> <h2 class="wp-block-heading">INICIO</h2> <pre class="wp-block-code"><code>300 DEFine PROCedure INICIO<br>310 REMark Inicializacion del programa<br>320 an%=20-1: al%=20-1<br>330 DIM tablero%(an%, al%): DIM b%(1,5)<br>340 f$=" ": b$="O": REMark b$=CHR$(226)<br>350 FOR i=0 TO 19 <br>360 FOR j= 0 TO 9: tablero%(i,j)=0<br>370 FOR j=10 TO 19: tablero%(i,j)=1<br>380 END FOR i<br>390 REMark Bolas, posiciones 'x' e 'y'<br>400 b%(0,0)=RND( 0 TO 18) : REMark x1<br>410 b%(0,1)=RND( 0 TO 9) : REMark y1<br>420 b%(1,0)=RND( 1 TO 19) : REMark x2<br>430 b%(1,1)=RND(10 TO 19) : REMark y2<br>440 REMark Desplazamientos 'dx' y 'dy'<br>450 b%(0,2)= 1: b%(0,3)= 1: REMark d1<br>460 b%(1,2)=-1: b%(1,3)=-1: REMark d2<br>470 REMark Ambas puntuaciones<br>480 b%(0,4)=0 : b%(1,4)=0<br>490 REMark Colores<br>500 b%(0,5)=1 : b%(1,5)=6<br>510 END DEFine INICIO</code></pre> <p>Este procedimiento, como dijimos en el artículo anterior, inicializa las variables de la demo.</p> <p>En la línea 320 se define el ancho y alto del tablero en las variables an% y al%. En la 330 se inicializan las dos matrices tablero% y b%.</p> <p><strong>Nota</strong>: Podría haber puesto DIM tablero%(19, 19) en vez de tablero%(an%, al%), pero así aprovechamos para ver que a una matriz podemos pasarle valores de una variable. En estos fascículos vas a ver cosas así con frecuencia. A los ya entendidos les parecerá que no tiene sentido, pero está pensado para probar y aprender cosas.</p> <p>En la línea 340 definimos las variables de cadena f$ y b$. no confundir b$ con b%. La variable b$ va a contener el caracter con el que representaremos la bola. una O mayúscula. La variable f$ contiene un carácter vacío. Es lo que usaremos cuando queramos borrar la bola. He puesto un comentario con una definición alternativa de b$. Con b$=CHR$(226) asignamos a b$ el carácter que representa una bola en el juego de caracteres de la ROM Minerva, ya que esta ROM tiene un juego de caracteres diferente, con más símbolos. Puedes ver el juego de caracteres de tu ROM con este sencillo programa:</p> <pre class="wp-block-code"><code>10 FOR i=0 TO 255: PRINT CHR$(i)!</code></pre> <p>Seguimos. Entre las líneas 350 y 380 tenemos un bucle FOR i=0 TO 19 que termina con un END FOR i, y que nos va a servir para hacer 20 vueltas. A cada vuelta, vamos a meter valores en la matriz tablero%.</p> <p>Las lineas 360 y 370 son a la vez dos bucles más. Ambos bucles están dentro (anidados) del bucle de las 20 vueltas, pero pasa algo curioso, no hay END FOR… Si el bucle y las instrucciones se ponen en una misma línea, no es necesario poner END FOR.</p> <p>Con estas dos líneas vamos a llenar de 0 y de 1 cada parte del tablero que corresponde, inicialmente, a cada bola, tablero%(i, j), siendo que «i» corresponde a la fila y «j» a la columna. Estas son las varialbes de cada bucle. La asignación se hace mediante el signo =, como con cualquier varialbe, pero la variable debe indicar el elemento (i, j) en este caso.</p> <p>Entre las líneas 390 y 500 defino los valores de la matriz b%(1, 5). Ver comentarios.</p> <p>de las líneas 400 a la 430 uso la instrucción RND. Esta me permite obtener un valor al azxar para inicializar la variable, entre un par de valores dados. Al principio del programa usamos RANDOMISE, este es el motivo, generar números verdaderamente aleatorios con cada ejecución del programa.</p> <p>Las líneas 450 y 460 asignan el valor del desplazamiento inicial de cada bola, de tal forma que la bola 1 avanzará 1 posición horizontal a la derecha y una vertical abajo, y la bola 2 lo hará al contrario, avanzará una posición horizonal a la izquierda, y una posición vertical arriba.</p> <h2 class="wp-block-heading">FIN</h2> <pre class="wp-block-code"><code>530 DEFine PROCedure FIN<br>540 REMark Finalizacion del programa<br>550 CLOSE #ch%: CLOSE #ch2%: MODE 4<br>560 END DEFine FIN</code></pre> <p>No hemos terminado, nos queda mucha tela que cortar. FIN es el procedimiento que uso para terminar el programa correctamente.</p> <p>Fijate que en la línea 140 he añadido ch% y ch2%. Estas variables van a contener el núnero de canal (channel) de las zonas de pantalla donde vamos a dibujar. Si no lo sabías, el QL tiene la posibilidad de dfefinir rectángulos de pantalla denominados ventanas, donde podemos escribir como si de otras pantallas se tratase, con su sistema propio de coordenadas independiente, colores de fondo y de tinta… luego veremos cómo se definen.</p> <p>El caso es que vamos a usar dos canales que identifican estas ventanas, y en el procedimiento FIN lo que hacemso es cerrar estos canales que corresponden a ventanas mediante la orden CLOSE. Las ventansa las abriremos en el procedimiento PANTALLA, aunque también podríamos haberlas abierto (OPEN) en el procedimiento INICIO.</p> <p>En este procedimiento, además, cambiamos al MODE 4 antes de salir. Esto ayudará a ver mejor los listados, con más caracteres por línea cuado hagamos LIST.</p> <h2 class="wp-block-heading">PANTALLA</h2> <pre class="wp-block-code"><code>580 DEFine PROCedure PANTALLA<br>590 REMark Presentacion de pantalla<br>600 MODE 8<br>610 REMark Dibuja tablero<br>620 c1%=b%(0,5): c2%=b%(1,5)<br>630 OPEN #ch%,scr_512x256a0x0<br>640 OPEN #ch2%,scr_324x225a97x18<br>650 PAPER #ch%,5,7: CLS #ch%<br>660 PAPER #ch2%,0: CLS #ch2%<br>670 WINDOW #ch%,324,202,94,16<br>680 WINDOW #ch2%,324,22,94,218<br>690 PAPER #ch%,c1%: CLS #ch%<br>700 PAPER #ch2%,3: CLS #ch2%<br>710 BORDER #ch%,1,3: BORDER #ch2%,1<br>720 BLOCK #ch%,160,200,160,0,c2%<br>730 CSIZE #ch%,3,0: CSIZE #ch2%,0,1<br>740 INK #ch2%,4: CURSOR #ch2%,99,0<br>750 PRINT #ch2%,"YIN & YANG"<br>760 INK #ch2%,7<br>770 REMark Posicion inicial de pelotas<br>780 PAPER #ch%,c1%: INK #ch%,c2%<br>790 AT #ch%,b%(0,0),b%(0,1)<br>800 PRINT #ch%,b$<br>810 PAPER #ch%,c2%: INK #ch%,c1%<br>820 AT #ch%,b%(1,0),b%(1,1)<br>830 PRINT #ch%,b$<br>840 MARCADOR<br>850 END DEFine PANTALLA</code></pre> <p>Primero establezco, con MODE 8, el modo de pantalla a modo 8 (8 colores) que tiene una resolución de 256×256 pixeles.</p> <p>En la línea 620 leo los colores de la matriz de las dos bolas y los guardo en c1% y c2% con c1%=b%(0,5): c2%=b%(1,5). Como vemos, podemos usar la matriz como una variable. Lo uso aquí, además de como medio de parendizaje, para no tener que escribir la posición de la matriz cada vez que quiero usar el color de la bola 1 o de la bola 2.</p> <p>En las líneas 630 y 640 abro el canal ch% y el canal ch2%. vemos que el canal ch% tiene la siguiente definición:</p> <pre class="wp-block-code"><code>OPEN #ch%,scr_512x256a0x0</code></pre> <p>Fijate que, aunque en el modo 8 las dimensiones de la pantalla son de 256×256 pixels, igualmente al abrir un canal destinado a una ventana debemos indicar las dimensiones de la ventana con un tamaño máximo de 512×256.</p> <p>La segunda ventana tiene otras dimensiones, 324×225 y está ubicada en la posición 97×18, siendo 97 la posición horizontal y 18 la vertical:</p> <pre class="wp-block-code"><code>OPEN #ch2%,scr_324x225a97x18</code></pre> <p>En las líneas 670 y 680 uso la instrucción WINDOW para cambiar las dimensiones de las ventanas. Los datos son los mismos que al definir una ventana, ancho, alto, posición hortizontal y posición vertical, pero con WINDOWS podemos cambiar su tamaño y posición en cualquier momento. Con los cambios de posición de ventamas hemos hecho que ambas tengan el mismo ancho, estén las dos una encima de la otra, en el centro, y ahora podemos seguir trabajando con ellas, pero todo lo que hagamos a partir de ahora con esos canales sólo agfectará a la zona interior de sus nuevas dimensiones, y el fondo que tenían antes quedan pintados en pantalla, pues las ventanas son realmente invisibles a nuestros ojos, salvo que le demos un color de fondo o pintemos o escribamos en ellas.</p> <p>En las lineas 690 y 700 pongo el color de fondo de cada ventana, el color de la bola 1 en ch% y el color magenta (rosa) en ch2%. El canal ch% es que usaremos para dibular el espacio donde rebotan las pelotas, el tablero, y le he dado las medidas de 20×20 caracteres. ch2% contendrá el marcador.</p> <p>En la línea 710 defino un borde tanto para ch% como para ch2%. En el primer caso es un borde del grosor de un pixel y de color magenta, y en el caso de ch% tambien tiene un grosor de un pixel, y este tendrá el color del fondo, ya que no le he definido un color concreto. Los bordes reducen el ancho y alto del espacio donde podemos escribir en las ventanas, de tal forma que, si la ventana asociada al canal ch% está definida con un ancho de 324 y un alto de 202 pixeles, sólo podremos usar 322 y 200 respectivamante, pues el borde que hemos creado resta 1 pixel arriba, otro abajo, otro a la derecha y otro a la izquierda.</p> <p>En la línea 720 uso BLOCK. Esta instrucción permirte crear rectángulos dentro de ventanas. Los datos son los mismos que los de las ventanas, ancho, alto, x e y, y además podemos indicaer el color de relleno, pero estos bloques tiene como referencia de posiciones el punto 0,0 de la ventana en la que se dibujan, y además están sujetos a un valor de escala. Dejaremos esto para otro momento. Ahora es suficiente con saber para que pintamos este rectángulo.</p> <p>Al cambiar el tamaño de la ventana asociada al canal ch% pintamos la ventana delo color de la bola 1, pero en la demo, cada bola es dueña de la mitad del tablero. Con este BLOCK pinto la mitad correspondiente al color de la bola 2 en la mitad derecha del tablero. Es decir, primero puse el papel (fondo) de la ventana entera con el color c1% y luego he puesto el papel de la mitad derecha del color c2%.</p> <p>En la línbea 730 cambio el tamaño de los caracteres con CSIZE. Esta instrucción permite tener caracteres el doble de ancho y alto que su tamaño original y con distinto espaciado. Ver CSIZE. Es muy útil para títulos.</p> <p>En la línea 740 pongo el color de la tinta INK con la que van a ser dibujados los caracteres en ch2% de color verde, y luego uso CURSOR para indicar la posición exacta dentro de la ventana donde se va a escribir el texto. Fíjate lo potente que es esto. Podemos empezar a escribir en cualquier posición de la ventana con una presición de píxeles. Por supuesto también podemso escribvir caracteres de la forma tradicional indicado filas y columnas con la instrucción AT.</p> <p>En la línea 750 se manda a imprimir com PRINT el título de la demo: «YIN & YANG» que aaprecerá centrada en la ventana por arte de la instrucción CURSOR.</p> <p>En la siguiente línea cambio el color de la tinta de este canal del color verde, que era el que estaba, al color blanco. </p> <p>Entre las líneas 780 y 830 dibujo las dos bolas en pantalla, en su posición inicial. Primero la bola 1 y luego la bola 2 de la misma forma. Pongo el color del fondo, y el color de la tinta, con AT indico la posición en la cuadrícula de caracteres donde estará la bola, datos que obtengo de b%, de tal forma que a AT le paso el canal, lla posición X y la posición Y, y luego con PRINT imprimo la pelota b$ donde le hemos dicho.</p> <p>Ya tenemos dibujado el tablero y las dos pelotas. Ahora, con invocando al procedimiento MARCADOR voy a incializar los marcadores.</p> <h2 class="wp-block-heading">MARCADOR</h2> <pre class="wp-block-code"><code>870 DEFine PROCedure MARCADOR<br>880 REMark Actualiza el marcador<br>890 AT #ch2%,0,0<br>900 PRINT #ch2%,CERO$(b%(0,4))<br>910 CURSOR #ch2%,283,0<br>920 PRINT #ch2%,CERO$(b%(1,4))<br>930 END DEFine MARCADOR</code></pre> <p>Este procedimiento es el encargado de poner los puntos de la bola 1 y de la bola 2 en el canal ch2%. En la bola 1 uso AT para posicionar los puntos y en la bola 2 uso CURSOR para posicionar de forma más precisa sus puntos. En ambos casos, a la hora de imprimir los puntos, uso la función CERO$, es decir, imprimo lo que devuelve de la función CERO$ cuando le paso el valor de los puntos que tienen que imprimirse. Ahora veremos por qué uso esta función.</p> <h2 class="wp-block-heading">CERO$(valor)</h2> <pre class="wp-block-code"><code>950 DEFine FuNction CERO$(valor)<br>960 REMark Rellena con ceros, max. 999<br>970 txt$=valor: ln%=LEN(txt$)<br>980 RETurn FILL$("0",3-ln%)&txt$<br>990 END DEFine CERO$</code></pre> <p>Esta es una función, no un procedimiento. La particularidad de las funciones es que devuelven algo despues de procesarlo, y para ello usan RETurn.</p> <p>Lo que hace CERO$ es recibir un valor, en este caso la puntuación de una bola, y devolver una cadena de texto de tres caracteres de ancho formateada con ceros a la izquierda de tal forma que si, por ejemplo, le pasamos el valor 8 devolverá «008», si le pasamos el valor 15, devolverá «015», y si le pasamos el valor 321 devolverá «321». Esto serśa de ayuda para que el marcador se vea siempre bien.</p> <p>Al empezar, como la puntuación de cada bola está indiacada a 0, ambos marcadores se verán como «000». Cuando la función lo devuelva, esto es lo que se imprimirá en el procedimiento MARCADOR para cada uno de los marcadores de cada bola.</p> <pre class="wp-block-code"><code>970 txt$=valor: ln%=LEN(txt$)<br>980 RETurn FILL$("0",3-ln%)&txt$</code></pre> <p>En la línea 980 se devuelve el resultado de la operación de rellenar con los ceros «0» que sena necesarios, mediante la instrucción FILL$, el valor guardado en txt$. Es decir, con FILL$ creamos una cadena de longitud 3-ln%, osea lo que falta para completar el número, y con & le añadimos el número que ya es una cadena txt$.</p> <p>Un ejemplo: si la variable valor conrtiene 15, txt$ será «15» (una cadena), su longitud será 2, lo que obtenemos con LEN, y entonces deberemos rellenar con FILL$ a la izquierda con un (1) cero, es decir 3 – ln%, osea 3 – 2 = 1, y añadirle «15».</p> <h2 class="wp-block-heading">Y en la próxima entrega…</h2> <p>en la próxima ocasión veremos como aplicar movimiento y rebotes a cada una de las bolas para que se muevan por el tablero libremente.</p> <h2 class="wp-block-heading">Ejercicio</h2> <p>El juego consiste en mover libremente por la ventana un avatar identificado con la letra «C» que se irá comiendo los donuts representados con la letra «o» que apareceran en posiciones al azar. Al comerse un donut aparecerá otro en otra posición, y así hasta pulsar ESC.</p> <p>Dibuja una ventana en el centro de la pantalla, con las dimensiones que tú quieras. Estas dimensiones deben ajustarse al ancho y alto de los caracteres, incluso si usas borde. de tal forma que los caracteres que se impirman en ella deben caber completamente.</p> <p>Usa las teclas del cursor y KEYROW para moverte, y controla que no te sales de la ventana.</p> <p> Crea las variables siguientes: </p> <ul><li>Una variable que contenga la letra C mayúscula, que será nuestro avatar en el juego.</li> <li>Una variable que contenga la letra o minúscula, que será lo que nos vamos a comer en el juego. </li> <li>Una variable que contenga un espacio vacío » » que usaremos para borrar el avatar y el objeto a comer antes de pintarlo de nuevo en la siguiente posición.</li> <li>Una variable X y otra Y que guarden las posiciones horizontal y vertical de nuestro avatar (la «C») en la ventana. Puedes inciarlizarlas en la posición que desees dentro de la ventana o hacerlo de forma aleatoria.</li> <li>Una variable X2 y otra Y2 que guarden las posiciones horizontal y vertical del objeto a comer y que aparecerá en las posicones aleatorias que le indiques.</li></ul> <p>Para moverte por la ventana suma o resta uno a las posiciones X e Y del avatar con cada pulsación, pero antes, asegurate que X e Y no han llegado a los bordes de la ventana, si es así, no sumes ni restes nada a las posiciones X e Y, simplemente por ahí no se puede avanzar.</p> <p>Enlaces recomendados</p> <ul><li><a href="https://sinclairql.speccy.org/manuales/sqlgu.htm">Manual del QL en español</a></li> <li><a href="https://sinclairql.speccy.org/manuales/tk2/index.htm">Manual de Toolkit II en español</a></li> <li><a href="https://github.com/JavGuerra/Sinclair-QL-YinYang.githttps://github.com/JavGuerra/Sinclair-QL-YinYang.git">Código en GitHub – repo Sinclair-QL-YinYang</a></li></ul> <p>Puedes seguir los comentarios de la comunidad en: <a href="https://retrowiki.es/viewtopic.php?f=98&t=200040267" rel="nofollow">https://retrowiki.es/viewtopic.php?f=98&t=200040267</a></p> <h2 class="wp-block-heading">Siguiente entrega</h2> <p><blockquote class="wp-embedded-content" data-secret="d4MCE35xlf"><a href="https://sinclairqles.wordpress.com/2024/03/29/programando-mi-primera-demo-en-ql-fasciculo-iii-movimiento-y-rebotes/">Programando mi primera Demo en QL – fascículo III, movimiento y rebotes</a></blockquote><iframe class="wp-embedded-content" sandbox="allow-scripts" security="restricted" title="«Programando mi primera Demo en QL – fascículo III, movimiento y rebotes» — QBlog" src="https://sinclairqles.wordpress.com/2024/03/29/programando-mi-primera-demo-en-ql-fasciculo-iii-movimiento-y-rebotes/embed/#?secret=VbyjKcjJZ8#?secret=d4MCE35xlf" data-secret="d4MCE35xlf" width="545" height="307" frameborder="0" marginwidth="0" marginheight="0" scrolling="no"></iframe></p>]]></content:encoded> <wfw:commentRss>https://sinclairqles.wordpress.com/2024/03/23/programando-mi-primera-demo-en-ql-fasciculo-ii-variables-y-tablero/feed/</wfw:commentRss> <slash:comments>3</slash:comments> <media:content url="https://0.gravatar.com/avatar/670e7a411bd32dc3309ddc8a7ac12a4cfa6305652b5ecbfc62415bc659494371?s=96&d=retro&r=G" medium="image"> <media:title type="html">badaman</media:title> </media:content> </item> <item> <title>Programando mi primera Demo en QL – fascículo I, los preparativos</title> <link>https://sinclairqles.wordpress.com/2024/03/16/programando-mi-primera-demo-en-ql-fasciculo-i-los-preparativos/</link> <comments>https://sinclairqles.wordpress.com/2024/03/16/programando-mi-primera-demo-en-ql-fasciculo-i-los-preparativos/#comments</comments> <dc:creator><![CDATA[badaman]]></dc:creator> <pubDate>Sat, 16 Mar 2024 18:24:01 +0000</pubDate> <category><![CDATA[Programación]]></category> <category><![CDATA[SuperBASIC]]></category> <guid isPermaLink="false">http://sinclairqles.wordpress.com/?p=3675</guid> <description><![CDATA[Esta colección de pocos artículos pretende dar a conocer las particularidades del SuperBASIC mediante un ejemplo práctico, la realización de una pequeña demo.<p><a href="https://sinclairqles.wordpress.com/2024/03/16/programando-mi-primera-demo-en-ql-fasciculo-i-los-preparativos/" class="more-link">Leer Más</a></p>]]></description> <content:encoded><![CDATA[<p>Parece que, más allá de los sospechosos habituales de la comunidad de QL, hay gente interesada en conocer un poco más sobre el QL, y en programar en él. Varios juegos en SuperBASIC han visto la luz recientemente en los foros de RetroWiki,. Esta colección de pocos artículos que inicio hoy pretende dar a conocer las particularidades del SuperBASIC mediante un ejemplo práctico, la realización de una pequeña demo.</p> <p>Para aprovechar estas entregas es necesario que tengas conocimientos básicos de programación y sobre el Sinclair QL.</p> <p>Me quedé hipnotizado con este ejemplo de programación, y me propuse portarlo al QL. A medida que lo iba desarrollando, más potencial le veía como medio para aprender programación.</p> <p>El código en JavaScript y el video puede verse aquí: <a href="https://github.com/vnglst/pong-wars" rel="nofollow">https://github.com/vnglst/pong-wars</a></p> <figure class="wp-block-image size-large"><img width="1024" height="811" data-attachment-id="3695" data-permalink="https://sinclairqles.wordpress.com/yin-yang_ql/" data-orig-file="https://sinclairqles.files.wordpress.com/2024/03/yin-yang_ql.png" data-orig-size="1024,811" data-comments-opened="1" data-image-meta="{"aperture":"0","credit":"","camera":"","caption":"","created_timestamp":"0","copyright":"","focal_length":"0","iso":"0","shutter_speed":"0","title":"","orientation":"0"}" data-image-title="yin-yang_ql" data-image-description="" data-image-caption="" data-medium-file="https://sinclairqles.files.wordpress.com/2024/03/yin-yang_ql.png?w=300" data-large-file="https://sinclairqles.files.wordpress.com/2024/03/yin-yang_ql.png?w=545" src="https://sinclairqles.files.wordpress.com/2024/03/yin-yang_ql.png?w=1024" alt="" class="wp-image-3695" srcset="https://sinclairqles.files.wordpress.com/2024/03/yin-yang_ql.png 1024w, https://sinclairqles.files.wordpress.com/2024/03/yin-yang_ql.png?w=150 150w, https://sinclairqles.files.wordpress.com/2024/03/yin-yang_ql.png?w=300 300w, https://sinclairqles.files.wordpress.com/2024/03/yin-yang_ql.png?w=768 768w" sizes="(max-width: 1024px) 100vw, 1024px" /></figure> <p>Este es el aspecto que tendrá la demo en el QL.</p> <span id="more-3675"></span> <h2 class="wp-block-heading">SuperBASIC</h2> <p>Del potencial del lenguaje del QL ya se ha hablado mucho y bien. La característica que más destaca de él es que permite realizar programación estructurada mediante el uso de Procedimientos y Funciones. Estos se definen mediante una sentencia DEFine PROCedure o DEFine FuNtion. Por ejemplo, si necesitamos llamar al código que aumenta un contador ne un programa, podemos hacer un GO TO o GO SUB o usar un procedimiento o función, que sería la forma correcta de hacerlo en SuperBASIC:</p> <pre class="wp-block-code"><code>100 DEFine PROCedure incremento<br>110 contador = contador + 1<br>120 END DEFine incremento<br>130 contador = 1<br>140 incremento<br>150 PRINT contador</code></pre> <p>Como vemos en la línea 140, es suficiente con poner el nombre del procedimienrto para que se ejecute el código entre DEFine y END DEFine. No importa en la línea que esté el procedimiento. SuperBASIC lo encontrará y usará. El resultado obtenido será 2.</p> <p>A un procedimiento o función podemos pasdarle parámetros, como veremos más adelante, igual que en cualquier lenguaje actual.</p> <p>Esto que es tan obvio conlleva una forma de hacer programas distinta, modular, en la que el código puede trocearse para hacerlo más operativo y limpio, aunque esto implica, generalmente, un mayor número de líneas.</p> <h2 class="wp-block-heading">La estructura</h2> <p>Pues bien, partiendo de esta premisa, veamos cómo sería el «esqueleto» de nuestro programa demo:</p> <pre class="wp-block-code"><code>100 REMark nombre del programa, version<br>110 REMark licencia, anyo, autores<br>120 REMark Estructura basica<br>130 :<br>140 CLEAR: REMark 'mdv1_yinyang_v1_bas'<br>150 dev$="mdv1_": prg$="yinyang": v$="v1"<br>160 :<br>170 INICIO: PANTALLA<br>180 REPeat prg<br>190 PRINT "Pulsa ESC": REMark Resto del codigo del programa aquí<br>200 IF KEYROW(1)=8: EXIT prg: REMark ESC<br>210 END REPeat prg<br>220 FIN: STOP<br>230 :<br>240 DEFine PROCedure sa<br>250 REMark Salva los cambios<br>260 REMark Nota: crear un fichero con el<br>270 REMark nombre correcto antes de usar<br>280 REMark y con cada nueva version<br>290 file$=dev$&prg$&"_"&v$&"_bas"<br>300 DELETE file$: SAVE file$<br>310 END DEFine sa<br>320 :<br>330 DEFine PROCedure INICIO<br>340 REMark Inicializacion del programa<br>350 END DEFine INICIO<br>360 :<br>370 DEFine PROCedure FIN<br>380 REMark Finalizacion del programa<br>390 END DEFine FIN<br>400 :<br>410 DEFine PROCedure PANTALLA<br>420 REMark Presentacion de pantalla<br>430 END DEFine PANTALLA<br>440 :<br>450 REMark Resto de FNs y PROCs aqui</code></pre> <p>Podría decirse que esta es una estructura genérica que podría usarse con cualquier programa en SuperBASIC que hagamos. Vamos a estudiarla.</p> <h2 class="wp-block-heading">Vamos por partes</h2> <p>Como se aprecia, las lineas estan numeradas, y cada línea puede tener una o varias sentencias separadas por dos puntos. Incluso podemos tener líneas con dos puntos y nada más. Esto se usa para separar visualmente el código.</p> <p>Los comentarios en el programa se incluyen con la sentencia REMark. Podemos tener comentarios que ocupen una línea o al final de una línea, tras una o varias sentencias en esa línea.</p> <p>En la línea 140 vemos un CLEAR. Esto se usa para limpiar el valor de las variables del BASIC. A continuación va un comentario con la ruta de nuestro programa, un ejemplo de lo que comentaba antes sobre los REM.</p> <p>En la siguiente línea, mediante variables, podemos determinar el dispositivo, el nombre del programa y la versión del mismo. Esto será útil para el procedimiento llamada sa.</p> <h3 class="wp-block-heading">El procedimiento sa</h3> <p>De la línea 240 a la 310 se define el procedimiento «sa» que sirve para salvar los cambios de nuestro programa a medida que programamos.</p> <p>Este tipo de procedimientos es muy común en el mundo QL, y ayudan a no tener que escribir los comandos para borrar y volver a guardar el programa que vamos haciendo. SuperBASIC permite usar los procedimientos en el sistema como si de nuevos comandos se tratase, así pues, una vez hayamos ejecutado el programa, aunque paremos su ejecución, los procedimientos pueden ser invocados desde la línea de comandos.</p> <p>Con sólo escribir sa en la línea de comandos, se guardará una versión actualizada de nuestro programa. Eso sí, las variables dev$, prg$ y v$ (varaibles que contienen texto y por eso terminan en $) deben tener los valores correctos, pues en la línea 290 se compone la ruta y el nombre dle fichero que usaremos.</p> <p>dev$ tiene como valor mdv1_, que corresponde a un dispositivo de microdrive. Podemos usar otros como flp1_ para disqueteras, win1_ para discos, ram1_ para discos RAM… y de cada tipo de dispositivo puede haber 8, por ejemplo, de microdrives puede haber mdv1_, mdv2_ … mdv8_</p> <p>En la línea 290 se usa el caracter & para concatenar o unir estas cadenas que se guardarán en la variable file$</p> <p>Cuando estés programando, verás lo útil que resulta el nuevo procedimiento/comando sa.</p> <h2 class="wp-block-heading">Nuestro programa</h2> <p>El programa como tal está entre las líneas 170 y 220:</p> <pre class="wp-block-code"><code><code role="textbox" aria-multiline="true" aria-label="Código" class="block-editor-rich-text__editable rich-text"><code role="textbox" aria-multiline="true" aria-label="Código" class="block-editor-rich-text__editable rich-text" style="min-width: 1px">170 INICIO: PANTALLA<br>180 REPeat prg<br>190 PRINT "Pulsa ESC": REMark Resto del codigo del programa aquí<br>200 IF KEYROW(1)=8: EXIT prg: REMark ESC<br>210 END REPeat prg<br>220 FIN: STOP</code></code></code></pre> <h3 class="wp-block-heading">Procedimiento INICIO</h3> <p>Este es un procedimiento que contendrá la inicialización de variables del programa. En la siguiente versión del programa veremos qué variables necesitaremos y cómo se definen. Por ahora dejamos el procedimiento creado entre las líneas 330 y 350.</p> <h3 class="wp-block-heading"><strong>Procedimiento PANTALLA</strong></h3> <p>Este procedimiento será el encargado de dibujar la pantalla, de mostrar la interfaz de la demo. Está entre las líneas 410 a 430. Ahora no hace realmente nada, igual que INICIO, pero en la siguiente versión le daremos contenido.</p> <h3 class="wp-block-heading">Procedimiento FIN</h3> <p>Este procedimiento definido entre las líneas 370 a 390 nos permitirá cerrar el programa de forma adecuada. Mismo caso que en los procedimientos anteriores. Lo veremos en acción en la siguiente versión del programa.</p> <h3 class="wp-block-heading">STOP</h3> <p>Esta instrucción sirve para parar la ejecución del programa, como puede suponerse. Realmente no es necesario usarla en este programa, pero ayuda a delimitar visualmente donde termina el código.</p> <p>Si bien debajo de la línea 220 hay definiciones de Procedimientos, estos no se ejecutarán a no ser que se llamen o invoquen en el programa.</p> <h3 class="wp-block-heading">REPeat prg</h3> <p>Repeat es un bucle que tiene asociado un identificador, en este caso «prg», que nos da la oprtunidad de ejecutar el contenido de las líneas entre REPeat y END REPeat hasta que se cumpla una condición de salida. Cuando esto ocurre, se sale del bucle mediante EXIT, como puede vertse en la línea 200.</p> <p>El bucle se repite hasta que pulsemos la tecla ESC, y entonces salede él y continua la ejecución con FIN y luego STOP.</p> <p>KEYROW es una instrucción que lee el teclado y devuelve un valor numérico correspondiente a la tecla pulsada. En este caso KEYROW lee la fila 1 de la cuadrícula del teclado y comprueba si esta devuelve el valor 8, que corresponde a la tecla ESC. Consulta la guía dle usuario para más información y uso de KEYROW.</p> <p>Una particularidad del SuperBASIC es que, si ponemos las instrucciones que deben ejecutarse tras un IF en una sola línea, no necesitamos hacer uso de THEN ni tampoco de END IF, com ohago en la línea 200.</p> <p>En la línea 190 incluiríamos el resto de programa y los procedimientos a los que deseemos invocar en las siguientes versiones de esta demo.</p> <h2 class="wp-block-heading">Usando el programa</h2> <p>El programa realmente no hace nada. Una vez ejecutado, espera todo el tiempo a que pulsemos la tecla ESC para salir.</p> <p>Podemos copiar el código y guardarlo en nuestor disco como un fichero de texto plano, en la ruta «mdv1_yinyang_v1_bas»</p> <p>Si vamos a cambiar la ubicación del fichero, debemos cambiar también el valor de la variable dev$ editando el código, para poder utilizar correctamente el comando sa. Un ejemplo de edición de código desde QL. Introducir este comando, y una vez editado, pulsar ENTER.</p> <pre class="wp-block-code"><code>EDIT 150</code></pre> <p>Aparecerá la línea en la línea de comandos para poder editarla. Luego se guardarán los cambios con ENTER.</p> <p>Si tienes el Toolkit II o TK2 para los amigos, puedes hacer uso del comando ED, que te permite editar el programa en la ventana donde se lista. Lee el manual de TK2.</p> <p>Si ejecutaste el programa, cuando hayas hecho los cambios, podrás usar el comando sa con tranquilidad para guardarlo.</p> <p>Haciendo uso del comando RENUM las líneas se renumerarán automáticamente de 10 en 10, empezando por la línea 100, dejando espacio para nuevas lineas.</p> <p>Recuerda que, para borrar, debes usar la combinación de teclas CTRL + tecla izquierda o CTRL + tecla derecha.</p> <h2 class="wp-block-heading">Y la próxima semana…</h2> <p>No te pierdas la próxima entrega en la que definiremos las variables de la demo, la pantalla y el marcador de puntuación.</p> <p>Mientras tanto, ¿qué te parece probar todo lo visto aquí con una pequeña aplicación hecha por ti?</p> <h3 class="wp-block-heading">Ejercicio</h3> <p>Te propongo que, usando esta estructura, crees un menú en pantalla que muestre tres opciones, de tal forma que al pulsar 1, haciendo uso de PRINT, la aplicación escriba, la frase «Buenos días». Si pulsamos 2, se debe imprimir «Buenas tardes» y si pulsamos 3, debe decir «Buenas noches». Usa ESC para salir.</p> <p>Cada una de las tres opciones puede ser invocada mediante un procedimiento llamado OPCION1, OPCION2 y OPCION3 respectivamente. Dentro de estos procedimientos estarían los PRINT que muestran los mensajes.</p> <p>Las pulsaciones de las teclas se comprobarán mediante KEYROW (ver manual) haciendo uso de los correspondientes IF, de la misma forma que en la línea 200, pero en vez de usar EXIT invocaremos al procedimiento que corresponda.</p> <h2 class="wp-block-heading">Enlaces recomendados</h2> <ul><li><a href="https://sinclairql.speccy.org/manuales/sqlgu.htm">Manual del QL en español</a></li> <li><a href="https://sinclairql.speccy.org/manuales/tk2/index.htm">Manual de Toolkit II en español</a></li> <li><a href="https://github.com/JavGuerra/Sinclair-QL-YinYang.githttps://github.com/JavGuerra/Sinclair-QL-YinYang.git">Código en GitHub – repo Sinclair-QL-YinYang</a></li></ul> <p>Puedes seguir los comentarios de la comunidad en: <a href="https://retrowiki.es/viewtopic.php?f=98&t=200040237" rel="nofollow">https://retrowiki.es/viewtopic.php?f=98&t=200040237</a></p> <h2 class="wp-block-heading">Siguiente entrega</h2> <p><blockquote class="wp-embedded-content" data-secret="FgISRljIZj"><a href="https://sinclairqles.wordpress.com/2024/03/23/programando-mi-primera-demo-en-ql-fasciculo-ii-variables-y-tablero/">Programando mi primera Demo en QL – fascículo II, variables y tablero</a></blockquote><iframe class="wp-embedded-content" sandbox="allow-scripts" security="restricted" title="«Programando mi primera Demo en QL – fascículo II, variables y tablero» — QBlog" src="https://sinclairqles.wordpress.com/2024/03/23/programando-mi-primera-demo-en-ql-fasciculo-ii-variables-y-tablero/embed/#?secret=wuwnaCbSyV#?secret=FgISRljIZj" data-secret="FgISRljIZj" width="545" height="307" frameborder="0" marginwidth="0" marginheight="0" scrolling="no"></iframe></p>]]></content:encoded> <wfw:commentRss>https://sinclairqles.wordpress.com/2024/03/16/programando-mi-primera-demo-en-ql-fasciculo-i-los-preparativos/feed/</wfw:commentRss> <slash:comments>2</slash:comments> <media:content url="https://0.gravatar.com/avatar/670e7a411bd32dc3309ddc8a7ac12a4cfa6305652b5ecbfc62415bc659494371?s=96&d=retro&r=G" medium="image"> <media:title type="html">badaman</media:title> </media:content> <media:content url="https://sinclairqles.files.wordpress.com/2024/03/yin-yang_ql.png?w=1024" medium="image" /> </item> <item> <title>Expandiendo un QL, hacia el futuro y hacia el pasando</title> <link>https://sinclairqles.wordpress.com/2024/03/03/expandiendo-un-ql-hacia-el-futuro-y-hacia-el-pasando/</link> <comments>https://sinclairqles.wordpress.com/2024/03/03/expandiendo-un-ql-hacia-el-futuro-y-hacia-el-pasando/#respond</comments> <dc:creator><![CDATA[afx]]></dc:creator> <pubDate>Sun, 03 Mar 2024 13:04:18 +0000</pubDate> <category><![CDATA[Hardware]]></category> <category><![CDATA[Historia]]></category> <category><![CDATA[Miscelánea]]></category> <guid isPermaLink="false">http://sinclairqles.wordpress.com/?p=3659</guid> <description><![CDATA[Se que el título de este post es un poco extraño, pero me permite compartir lo que recibí en un paquete entregado por Correos esta semana. Se trata de dos "expansiones" para uno de mis QLs. Una de las expansiones es una puerta abierta al futuro, ... la segunda "expansión" es una mirada al pasado, ...<p><a href="https://sinclairqles.wordpress.com/2024/03/03/expandiendo-un-ql-hacia-el-futuro-y-hacia-el-pasando/" class="more-link">Leer Más</a></p>]]></description> <content:encoded><![CDATA[<p>Se que el título de este post es un poco extraño, pero me permite compartir lo que recibí en un paquete entregado por Correos esta semana. Se trata de dos «expansiones» para uno de mis QLs.</p> <p>Una de las expansiones es una <strong>puerta abierta al futuro</strong>, se trata del dispositivo de moda en el mundillo QL, QIMSI. Seguramente ya lo conoceréis porque hemos hablado mucho de él en otros post de Retrowiki y en Qlog. En el encuentro de Majadas del 40 aniversario lo pudimos ver en vivo (muchos de nosotros por primera vez). Brevemente, para quien no lo conozca, se trata de una diminuta placa que se conecta al puerto ROM del QL y que aporta almacenamiento masivo en una micro-SD, conexión de ratón PS2, conexión a un teclado externo PS2 y posibilidad de incoporar comunicaciones serie de alta velocidad. Ahora tengo la QIMSI en uno de mis QL con una GoldCard, esto me permite ejecutar tanto QDOS como SMSQ/E, que por cierto, se acaba de liberar una nueva versión hace un par de semanas.</p> <p>La segunda «expansión» es <strong>una mirada al pasado</strong>, concretamente una disquetera de 5 1/4 DD de Miracle System. Sinceramente no me esperaba que funcionara, pero fue conectarla al QL, encender el sistema, formatear un disquete, copiar ficheros y …. sorpresa ¡¡FUNCIONAAAA!!. Otra prueba interesante que realice es acceder a la disquetera como «unidad compartida del QL» desde la FPGA (Q68) y desde el emulador en el PC (QPC2) empleando la QLNET (la red local del QL). Mola mucho hacer un «n1_dir_flp1_» desde la FPGA o el emulador en el PC y ver como se enciente la luz de la disquetera del QL mostrando el contenido del directorio. </p> <p>Esto me parece fantástico, una plataforma que ha sobrevivido 40 años y que en la actualidad aún se mantiene su sistema operativo el cual puede lidiar con tanto con dispositivos modernos (tarjetas microSD de almacenamiento masivo) como con dispositivos de almacenamiento de principios de los 80.</p> <p>Os pongo algunas imágenes:</p> <figure class="wp-block-image size-large"><img loading="lazy" width="600" height="349" data-attachment-id="3660" data-permalink="https://sinclairqles.wordpress.com/2024/03/03/expandiendo-un-ql-hacia-el-futuro-y-hacia-el-pasando/qimsi/" data-orig-file="https://sinclairqles.files.wordpress.com/2024/03/qimsi.png" data-orig-size="600,349" data-comments-opened="1" data-image-meta="{"aperture":"0","credit":"","camera":"","caption":"","created_timestamp":"0","copyright":"","focal_length":"0","iso":"0","shutter_speed":"0","title":"","orientation":"0"}" data-image-title="qimsi" data-image-description="" data-image-caption="" data-medium-file="https://sinclairqles.files.wordpress.com/2024/03/qimsi.png?w=300" data-large-file="https://sinclairqles.files.wordpress.com/2024/03/qimsi.png?w=545" src="https://sinclairqles.files.wordpress.com/2024/03/qimsi.png?w=600" alt="" class="wp-image-3660" srcset="https://sinclairqles.files.wordpress.com/2024/03/qimsi.png 600w, https://sinclairqles.files.wordpress.com/2024/03/qimsi.png?w=150 150w, https://sinclairqles.files.wordpress.com/2024/03/qimsi.png?w=300 300w" sizes="(max-width: 600px) 100vw, 600px" /></figure> <figure class="wp-block-image size-large"><img loading="lazy" width="600" height="799" data-attachment-id="3662" data-permalink="https://sinclairqles.wordpress.com/2024/03/03/expandiendo-un-ql-hacia-el-futuro-y-hacia-el-pasando/miracle514a/" data-orig-file="https://sinclairqles.files.wordpress.com/2024/03/miracle514a.png" data-orig-size="600,799" data-comments-opened="1" data-image-meta="{"aperture":"0","credit":"","camera":"","caption":"","created_timestamp":"0","copyright":"","focal_length":"0","iso":"0","shutter_speed":"0","title":"","orientation":"0"}" data-image-title="miracle514a" data-image-description="" data-image-caption="" data-medium-file="https://sinclairqles.files.wordpress.com/2024/03/miracle514a.png?w=225" data-large-file="https://sinclairqles.files.wordpress.com/2024/03/miracle514a.png?w=545" src="https://sinclairqles.files.wordpress.com/2024/03/miracle514a.png?w=600" alt="" class="wp-image-3662" srcset="https://sinclairqles.files.wordpress.com/2024/03/miracle514a.png 600w, https://sinclairqles.files.wordpress.com/2024/03/miracle514a.png?w=113 113w, https://sinclairqles.files.wordpress.com/2024/03/miracle514a.png?w=225 225w" sizes="(max-width: 600px) 100vw, 600px" /></figure> <figure class="wp-block-image size-large"><img loading="lazy" width="600" height="799" data-attachment-id="3663" data-permalink="https://sinclairqles.wordpress.com/2024/03/03/expandiendo-un-ql-hacia-el-futuro-y-hacia-el-pasando/miracle514b/" data-orig-file="https://sinclairqles.files.wordpress.com/2024/03/miracle514b.png" data-orig-size="600,799" data-comments-opened="1" data-image-meta="{"aperture":"0","credit":"","camera":"","caption":"","created_timestamp":"0","copyright":"","focal_length":"0","iso":"0","shutter_speed":"0","title":"","orientation":"0"}" data-image-title="miracle514b" data-image-description="" data-image-caption="" data-medium-file="https://sinclairqles.files.wordpress.com/2024/03/miracle514b.png?w=225" data-large-file="https://sinclairqles.files.wordpress.com/2024/03/miracle514b.png?w=545" src="https://sinclairqles.files.wordpress.com/2024/03/miracle514b.png?w=600" alt="" class="wp-image-3663" srcset="https://sinclairqles.files.wordpress.com/2024/03/miracle514b.png 600w, https://sinclairqles.files.wordpress.com/2024/03/miracle514b.png?w=113 113w, https://sinclairqles.files.wordpress.com/2024/03/miracle514b.png?w=225 225w" sizes="(max-width: 600px) 100vw, 600px" /></figure> <figure class="wp-block-image size-large"><img loading="lazy" width="600" height="501" data-attachment-id="3664" data-permalink="https://sinclairqles.wordpress.com/2024/03/03/expandiendo-un-ql-hacia-el-futuro-y-hacia-el-pasando/miracle514c/" data-orig-file="https://sinclairqles.files.wordpress.com/2024/03/miracle514c.png" data-orig-size="600,501" data-comments-opened="1" data-image-meta="{"aperture":"0","credit":"","camera":"","caption":"","created_timestamp":"0","copyright":"","focal_length":"0","iso":"0","shutter_speed":"0","title":"","orientation":"0"}" data-image-title="miracle514c" data-image-description="" data-image-caption="" data-medium-file="https://sinclairqles.files.wordpress.com/2024/03/miracle514c.png?w=300" data-large-file="https://sinclairqles.files.wordpress.com/2024/03/miracle514c.png?w=545" src="https://sinclairqles.files.wordpress.com/2024/03/miracle514c.png?w=600" alt="" class="wp-image-3664" srcset="https://sinclairqles.files.wordpress.com/2024/03/miracle514c.png 600w, https://sinclairqles.files.wordpress.com/2024/03/miracle514c.png?w=150 150w, https://sinclairqles.files.wordpress.com/2024/03/miracle514c.png?w=300 300w" sizes="(max-width: 600px) 100vw, 600px" /></figure> <figure class="wp-block-image size-large"><img loading="lazy" width="600" height="459" data-attachment-id="3665" data-permalink="https://sinclairqles.wordpress.com/2024/03/03/expandiendo-un-ql-hacia-el-futuro-y-hacia-el-pasando/miracle514d/" data-orig-file="https://sinclairqles.files.wordpress.com/2024/03/miracle514d.png" data-orig-size="600,459" data-comments-opened="1" data-image-meta="{"aperture":"0","credit":"","camera":"","caption":"","created_timestamp":"0","copyright":"","focal_length":"0","iso":"0","shutter_speed":"0","title":"","orientation":"0"}" data-image-title="miracle514d" data-image-description="" data-image-caption="" data-medium-file="https://sinclairqles.files.wordpress.com/2024/03/miracle514d.png?w=300" data-large-file="https://sinclairqles.files.wordpress.com/2024/03/miracle514d.png?w=545" src="https://sinclairqles.files.wordpress.com/2024/03/miracle514d.png?w=600" alt="" class="wp-image-3665" srcset="https://sinclairqles.files.wordpress.com/2024/03/miracle514d.png 600w, https://sinclairqles.files.wordpress.com/2024/03/miracle514d.png?w=150 150w, https://sinclairqles.files.wordpress.com/2024/03/miracle514d.png?w=300 300w" sizes="(max-width: 600px) 100vw, 600px" /></figure> <figure class="wp-block-image size-large"><img loading="lazy" width="600" height="555" data-attachment-id="3667" data-permalink="https://sinclairqles.wordpress.com/2024/03/03/expandiendo-un-ql-hacia-el-futuro-y-hacia-el-pasando/launchpad_a/" data-orig-file="https://sinclairqles.files.wordpress.com/2024/03/launchpad_a.png" data-orig-size="600,555" data-comments-opened="1" data-image-meta="{"aperture":"0","credit":"","camera":"","caption":"","created_timestamp":"0","copyright":"","focal_length":"0","iso":"0","shutter_speed":"0","title":"","orientation":"0"}" data-image-title="launchpad_a" data-image-description="" data-image-caption="" data-medium-file="https://sinclairqles.files.wordpress.com/2024/03/launchpad_a.png?w=300" data-large-file="https://sinclairqles.files.wordpress.com/2024/03/launchpad_a.png?w=545" src="https://sinclairqles.files.wordpress.com/2024/03/launchpad_a.png?w=600" alt="" class="wp-image-3667" srcset="https://sinclairqles.files.wordpress.com/2024/03/launchpad_a.png 600w, https://sinclairqles.files.wordpress.com/2024/03/launchpad_a.png?w=150 150w, https://sinclairqles.files.wordpress.com/2024/03/launchpad_a.png?w=300 300w" sizes="(max-width: 600px) 100vw, 600px" /></figure> <p>QL is 40, QL forever!</p> <p>PD:<br>¡Gracias napsternds! </p>]]></content:encoded> <wfw:commentRss>https://sinclairqles.wordpress.com/2024/03/03/expandiendo-un-ql-hacia-el-futuro-y-hacia-el-pasando/feed/</wfw:commentRss> <slash:comments>0</slash:comments> <media:content url="https://2.gravatar.com/avatar/2e948c7450b5c4716e0fc96ea0278fc228d8f5b3fd19305b5133c6cd0d22928a?s=96&d=retro&r=G" medium="image"> <media:title type="html">afx</media:title> </media:content> <media:content url="https://sinclairqles.files.wordpress.com/2024/03/qimsi.png?w=600" medium="image" /> <media:content url="https://sinclairqles.files.wordpress.com/2024/03/miracle514a.png?w=600" medium="image" /> <media:content url="https://sinclairqles.files.wordpress.com/2024/03/miracle514b.png?w=600" medium="image" /> <media:content url="https://sinclairqles.files.wordpress.com/2024/03/miracle514c.png?w=600" medium="image" /> <media:content url="https://sinclairqles.files.wordpress.com/2024/03/miracle514d.png?w=600" medium="image" /> <media:content url="https://sinclairqles.files.wordpress.com/2024/03/launchpad_a.png?w=600" medium="image" /> </item> <item> <title>Presencia en El Mundo del Spectrum, podcast 12×04</title> <link>https://sinclairqles.wordpress.com/2024/02/29/presencia-en-el-mundo-del-spectrum-podcast-12x04/</link> <comments>https://sinclairqles.wordpress.com/2024/02/29/presencia-en-el-mundo-del-spectrum-podcast-12x04/#comments</comments> <dc:creator><![CDATA[badaman]]></dc:creator> <pubDate>Thu, 29 Feb 2024 22:29:31 +0000</pubDate> <category><![CDATA[Noticias]]></category> <category><![CDATA[Resúmenes]]></category> <category><![CDATA[El Mundo del Spectrum]]></category> <category><![CDATA[QLis40]]></category> <guid isPermaLink="false">http://sinclairqles.wordpress.com/?p=3647</guid> <description><![CDATA[Varios integrantes del grupo de QL estuvimos en el programa Super Directo de El Mundo del Spectrum emitido el 1 de febrero de 2024 con motivo del 40 aniversario del QL. Este programa fue la base, junto con la entrevista que se llevó a cabo en el evento de Majadas del Tietar, para su podcast 12x04.<p><a href="https://sinclairqles.wordpress.com/2024/02/29/presencia-en-el-mundo-del-spectrum-podcast-12x04/" class="more-link">Leer Más</a></p>]]></description> <content:encoded><![CDATA[<p>Resumen por: Miguel Ángel Rojo</p> <p>Varios integrantes del grupo de QL estuvimos en el programa Super Directo de El Mundo del Spectrum emitido el 1 de febrero de 2024 con motivo del 40 aniversario del QL. Este programa fue la base, junto con la entrevista que se llevó a cabo en el evento de Majadas del Tietar, para su podcast 12×04.</p> <span id="more-3647"></span> <figure class="wp-block-embed is-type-video is-provider-youtube wp-block-embed-youtube wp-embed-aspect-16-9 wp-has-aspect-ratio"><div class="wp-block-embed__wrapper"><div class="embed-youtube"><iframe title="Especial SINCLAIR QL (Súper Directo)" width="545" height="307" src="https://www.youtube.com/embed/B1yjOgAm0Vk?feature=oembed" frameborder="0" allow="accelerometer; autoplay; clipboard-write; encrypted-media; gyroscope; picture-in-picture; web-share" allowfullscreen></iframe></div></div><figcaption class="wp-element-caption">Emisión del Super Directo</figcaption></figure> <p class="has-medium-font-size"><strong><a href="https://www.elmundodelspectrum.com/el-mundo-del-spectrum-podcast-12x04/">Acceso al Podcast 12×04</a></strong></p> <p>Esta vez los amigos del QL se fueron a una entrevista monográfica y en directo sobre el Sinclair QL al programa «El mundo del Spectrum» el 1 de febrero del 2024, que contó con 7 invitados expertos de este mítico y desconocido ordenador.</p> <p>Alejandro, Jesús y Juan estaban acompañados por Napsternds, Badaman, Zerover, Titoxunix, AFX, Álvaro Alea y Miguel Ángel Rojo.</p> <p>Alejandro ofreció una breve explicación sobre la salida del Sinclair QL en habitual obertura del programa. Le sigue Jesús sobre lo que se va a hablar durante las más de dos horas siguientes.</p> <p>Juanfra nos ofrece su opinión sobre los seguidores del Spectrum y como lo veían, como la alargada sombra de hijo mayor, a través de las revistas de la época, y posiblemente siendo sin duda el siguiente paso del Spectrum. Esto, no obstante, no lo fue para todos ellos, por los cambios que vinieron en el mundo de la Informática y la aparición de nuevos sistemas.</p> <p>Los protagonistas fueron hablando, uno a uno, dando sus agradecimientos y un breve comentario sobre su visión de este particular ordenador.</p> <p>Jesus, entrando al turrón, pregunta por el acontecimiento sobre el evento del 40 aniversario o QLis40.</p> <p>Badaman nos cuenta que el 16 de abril de 2013 en una reunión por videoconferencia, hizo la propuesta, un evento de QL en España aprovechando las instalaciones del Museo de Historia de la Computación ubicado en Majadas de Tiétar, Cáceres, con fecha al año siguiente, en torno al 12 de enero, coincidiendo con la presentación a los medios del QL en el 84.</p> <p>En el evento se puedo contabilizar unas 40 personas y se mostraron unos 15 QLs, y maquinas vistas rara vez, como toda la colección de Fede, la de Titoxunix con su placa nueva de QL de Tetroid, o la fabricación de hardware que hace Alvaro.</p> <p>Badman, Zerover. Afx, todos aportaron al evento su granito de arena. Hubo, actividades, charlas, exposiciones de equipos con ampliaciones clásicas y nuevas, faltando tiempo para trastear con ellas.</p> <p>Napsternds nos cuenta lo mágico que puede ser un QL viéndolo desde el punto vista de tres generaciones, el que comenzó en la época como su primer ordenador y no lo dejó, el que volvió después del fiasco de los microdrives, o el que, como él y Miguel Angel, empezaron hace pocos años.</p> <p>Posibilidades de configuración, trastear, conseguir funcionalidades, y mucha exploración, el descubrimiento es lo que nos tiene enganchados y resulta ser una maravilla.</p> <p>Álvaro da un visión en perspectiva sobre el recuerdo de la presentación del QL, su diseño, las prisas, el “contrarreloj” por superar a sus rivales y las decisiones que, a la larga, salieron muy caras a pesar de que la máquina se distribuyó con retraso.</p> <p>A la pregunta de la utilización de los microdrive, TitoxUnix nos cuenta que Sinclair los introdujo por abaratar y por el intento de imponer su propio estándar, y que el mayor problema del QL fue el tiempo, con un desarrollo muy largo, ya que fue un ordenador que tendría que haber salido a finales del 83 como mucho, y con mas inversión.</p> <p>Afx añade que, en Sinclair, no supieron fijar un objetivo. No tenían claro lo que querían: ordenador portátil, super Spectrum, ordenador de oficina…</p> <p>Sinclair fue un visionario, pero tal vez se adelantó demasiado a su tiempo, y sus productos no llegaron en el momento adecuado: mini televisores, calculadoras, coches eléctricos… con el QL tenia la perspectiva de hacer un producto barato para competir de igual a igual con los PCs, pero era un reto, sobre todo ante la llegada de los clónicos PC.</p> <p>Sinclair tubo un acierto rotundo con el ZX80, ZX81 y su ZX Spectrum. Al alcanzar un éxito brutal, convirtiéndose en la empresa número uno del mercado, y con la presión de los accionistas de conseguir otro éxito, el descontrol por el crecimiento de la empresa, con un QL poco definido… con todo eso se alargó su salida al mercado, entregándose a los clientes tarde y con muchos problemas, lo que hizo que una maquina adelantada a su tiempo, con un SuperBASIC y un sistema operativo espectacular, no tubo la repercusión deseada en el mercado.</p> <p>Juanfran, que es poseedor de una gran colección de Sinclair, nos mostró la publicidad de la época, el catálogo del Sinclair QL con las ordenes de pedido del ordenador. Todo un tesoro que habla de sus características y sus posibilidades profesionales a un increíble precio de 110.000 pts (el equivalente a unos 2.000 € o más de hoy)..</p> <p>Un dato importante del suplemento número 3 de QL User nos dice que Sinclair recibía entre 500 y 600 hojas de pedido de QLs al día, teniendo un retraso increíble en los pedidos.</p> <p>El Sinclair QL tenía previsto que saliese personalizados para 12 países diferentes, mas un importador, pero, finalmente, salieron 9.</p> <p>Entrando ya en tema de hardware, TitoxUnix nos da una explicación sobre el QL. Un micro de 32 bits con un 68008 de bajo costo, una ULA 8302 que controla todos los periféricos y con más ampliaciones que un ZX Spectrum.</p> <p>El resumen del hardware fue que en febrero del 86 el QL ya era un ordenador retro y no había mercado para él. Todo desapareció, pero gracias a entusiastas de la comunidad, aún sigue viva, después de 40 años.</p> <p>Del sistema operativo de Tony Tebby y el SuperBASIC de Jan Jones se podría hablar largo y tendido, pero dejaremos cuatro detalles. El QL estaba diseñado con algo que salió al Mundo mucho después, el Plug&Play que permitía que las ampliaciones se conectaran y autoidentificaran en el sistema sin necesidad de cargar controladores. Otra novedad era la multitarea real. Se añadió una suite ofimática en 4 cartuchos de Microdrive (procesador de textos, hoja de cálculos, base de datos, y gráficos empresariales) de serie, que fue escrita por la empresa PSION. Todo ello mucho antes del lanzamiento de Microsoft Windows.</p> <p>Muchos coinciden en lo sorprendente que puede ser un QL con su entorno de ventanas y la conectividad de red. Mediante un cable de audio mono entre dos QLs se puede montar una red local con la que ejecutar programas y poder comunicarse con dos simples comandos. Era algo de ciencia ficción en el 85. Cuando muy poco después llegaron las ventanas, fue algo impresionante. Se trata del Pointer Environment (PE), 10 años antes de Windows, y a la par que los Mac, el QL tenia algo parecido, con ratón ya entonces.</p> <p>Álvaro comenta que lo que más le llama la atención del hardware del QL es el segundo procesador. El microcontrolador 8049, que libera muchas tareas al 68008. Una idea revolucionaria para ahorrar costes.</p> <p>Se habló también un poco más sobre los microdrives. Hoy es muy complicado encontrar microdrives que funcionen, porque se deterioran con el tiempo, al igual que las membranas del teclado. El resto del equipo aguanta bastante bien.</p> <p>En el ámbito de los clones, que también los hubo, el Merlin Tonto (de ICL), fue un ordenador de oficina con teléfono para secretarías que Sinclair hizo en colaboración con British Telecom partiendo del hardware del QL. En Australia fue vendida por Computerphone como OPD. No tuvo mucha repercusión. Venía con la suite de PSION y el SuperBASIC venia en un microdrive.</p> <p>En cuanto a emulación de QL, está muy avanzada, con una gran variedad de programas emuladores, ya que, cuando el QL se descontinuó y los equipos se fueron estropeando, no se tuvo más remedio que recurrir a ellos. Los hay para Mac, Windows y Linux. Miguel cuenta que, uno de ellos es QemuLator, muy fácil de usar, e invitando mucho a trastear con él, pudiendo acceder tanto a los contenedores .win como a los microdrives, entre otros.</p> <p>Cabe destacar también los siguientes emuladores: SMSQemulator, ZesarUX, MAME-MESS y QPC2, que emula a la perfección un sistema tan avanzado como es SMSQ/E. En FPGA también podemos implementar, con total realismo, un QL. Mister, Mist, Sidi, Neptuno y recientemente, Poseidon.</p> <p>Respecto al Software, Zerover comenta que lo que más le gusta es el SuperBASIC, y era de los que se hacia su propio software, modificando el juego de caracteres, creando su propio ensamblador para programar en código maquina, creando un editor de sprites, y haciendo pequeños juegos.</p> <p>Sobre juegos, quizá los más relevantes son, el PSION Chess, el Mach Point, el juego de ajedrez por antonomasia en el QL, el Chess, y un gran juego de tenis muy logrado y entretenido, el Match Point. Por desgracia la scene es muy reducida, y salvo dos juegos conversacionales de elaboración reciente, no suele salir nada de nueva generación para el QL. Hay buenos juegos para QL, pero no son muchos, por ser un ordenador enfocado a las empresas.</p> <p>Las revistas y libros eran muy necesarios para los usuarios entonces. La QL Word fue la revista por excelencia, heredera del QL User que se publicó hasta el 94, muchos años después de la desaparición del QL, y que era complicada de conseguir, salvo en sitios especializados, y dos revistas: la IQLR y QLTODAY, cuyo último numero data del 2013. Es admirable que la comunidad se mantuviese activa hasta esa fecha.</p> <p>Actualmente existen varios sitios de información y preservación de QL destacados. Uno es el de Dylwin Jones, en inglés, y sinclairql.es recursos en castellano, realizado por Badaman, y que cuenta con el material del club de usuarios de QL en España, el club Qlave, cuyo material preservado por Salvado Merino, se puedo subir a Internet en el año 2002, fecha de la aparición de esta web.</p> <p>Los libros de QL más destacados son «QL programación avanzada» y el de SuperBASIC de Jan Jones.</p> <p>AFX nos cuenta algo muy interesante, lo que se puede hacer con la red, un PC, un QL y la IA ChatGPT. Para el 40 aniversario del QL, Afx creó un programa en SuperBASIC que conecta, vía RS232, el QL con ChatGPT a través de un PC con un emulador que hace de intermediario, para dialogar. Es una excelente forma de mantener la maquina viva con algo actual.</p> <p>Álvaro nos cuenta que clonar el hardware para usar en QL es relativamente accesible, y hay una cantidad de ellos bastante importante, empezando por la Qubide de José Leandro y la placas clonadas de Álvaro Alea, y TitoxUnix y Zerover con pequeñas aportaciones muy interesantes. Internacionalmente, tenemos al ruso Tetroid, que hace una variedad importante de clones (Gold Card, Qubides, interfaces de disco…) algo en lo que los rusos siempre han sido unos expertos y han tenido relevancia en el mundo de los Spectrum.</p> <p>Como hardware curioso y raro, tenemos un digitalizador de video que Salvador Merino mostró en el evento del 40 aniversario. Por desgracia, nos quedamos con las ganas de verlo en funcionamiento.</p> <p>Para ir terminando y dar paso a las despedidas, la mayoría coincidimos que para entrar en el QL no hace falta tenerlo. Con un emulador puedes ver si te gusta, podrás disfrutar de sus bondades, incluso si tienes FPGA lo apreciarás con mayor calidad. Si uno se anima a comprar un QL, hay que tener en cuenta un posible cambio de membrana que puede estar deteriorada, y que necesitarás ampliarlo con más memoria sí o sí. Para esto, una Qubide quizá sea la mejor opción. </p>]]></content:encoded> <wfw:commentRss>https://sinclairqles.wordpress.com/2024/02/29/presencia-en-el-mundo-del-spectrum-podcast-12x04/feed/</wfw:commentRss> <slash:comments>1</slash:comments> <media:content url="https://0.gravatar.com/avatar/670e7a411bd32dc3309ddc8a7ac12a4cfa6305652b5ecbfc62415bc659494371?s=96&d=retro&r=G" medium="image"> <media:title type="html">badaman</media:title> </media:content> </item> <item> <title>Teclado español en sQLux</title> <link>https://sinclairqles.wordpress.com/2024/02/27/teclado-espanol-en-sqlux/</link> <comments>https://sinclairqles.wordpress.com/2024/02/27/teclado-espanol-en-sqlux/#comments</comments> <dc:creator><![CDATA[badaman]]></dc:creator> <pubDate>Tue, 27 Feb 2024 06:07:41 +0000</pubDate> <category><![CDATA[Emuladores]]></category> <category><![CDATA[castellano]]></category> <category><![CDATA[español]]></category> <category><![CDATA[sQLux]]></category> <guid isPermaLink="false">http://sinclairqles.wordpress.com/?p=3636</guid> <description><![CDATA[Gracias al esfuerzo y apoyo del usuario Exile, el emulador sQLux ahora soporta la configuración de teclado de PC en español. Algo que nos viene muy bien para poder programar o editar textos cuando usamos la ROM MGE o la ROM Minerva y cargamos el driver de teclado español.<p><a href="https://sinclairqles.wordpress.com/2024/02/27/teclado-espanol-en-sqlux/" class="more-link">Leer Más</a></p>]]></description> <content:encoded><![CDATA[<p>Gracias al esfuerzo y apoyo del usuario Exile, el emulador sQLux ahora soporta la configuración de teclado de PC en español. Algo que nos viene muy bien para poder programar o editar textos cuando usamos la ROM MGE o la ROM Minerva y cargamos el driver de teclado español.</p> <span id="more-3636"></span> <p>Para que funcione, en el fichero sqlux.ini debemos indicar:</p> <pre class="wp-block-code"><code>KBD = ES</code></pre> <p>Después de una gran cantidad de soporte y pruebas, los cambios de código necesarios para el teclado en español ahora se han fusionado nuevamente en la rama maestra de sQLux, por lo que ya es posible descargar y compilar el emulador de forma sencilla.</p> <p>Esta versión lleva el nombre interno de «The Comfy Chair», una parodia de los Monty Python que ha sido motivo de risas entre el programador y yo durante el proceso de desarrollo. Y es que «nadie espera a la inquisición española…» XD</p> <h2 class="wp-block-heading">Cambios</h2> <p>Los cambios se han probado en X11 (Mint Linux, Ubuntu Linux y Pi Os) y MS Windows. Hay soporte para teclas muertas y una selección de combinaciones de teclas Alt Gr.</p> <p>De forma predeterminada, Raspberry Pi OS usa SDL en X11, por lo que estos cambios actualmente funcionarán «listos para usar» para Raspberry Pi. Los cambios no funcionan en Raspberry Pi OS cuando SDL está configurado para usar Wayland, ya que la versión de Wayland que se usa actualmente en Pi OS no informa de pulsaciones de teclas muertas.</p> <h2 class="wp-block-heading">Obtener el emulador</h2> <p>Para obtener la versión final de Windows o Linux, compílela a partir de las fuentes principales de sQLux en: <a href="https://github.com/SinclairQL/sQLux" rel="nofollow">https://github.com/SinclairQL/sQLux</a></p> <p>Sigue los pasos básicos en Debian Linux (necesitas Git):</p> <pre class="wp-block-code"><code>sudo apt install build-essential cmake git libsdl2-dev<br># ve a la carpeta donde descargarás el código<br>git clone --recursive https://github.com/SinclairQL/sQLux/<br>cd sQLux<br>cmake -B build/<br>make<br># ahora prueba el binario<br>./build/sqlux --help</code></pre> <p>En el repositorio hay información para compilar el emulador en otros sistemas.</p> <ul><li>Copia el ejecutable que encontrarás en la caprta build llamado sqlux donde desees ubicar tu emulador.</li> <li>Copia allí la carpeta roms.</li> <li>Copia también la carpeta examples.</li> <li>Luego copia el fichero sqlux.ini que encontrarás en la carpeta sQLux.</li> <li>Modifica el fichero sqlux.ini a tu gusto.</li> <li>Ejecuta ‘sqlux’.</li></ul> <p>Eso es todo. Ahora, prepárate a disfrutar del sillón confortable (Comfy chair).</p> <figure class="wp-block-embed is-type-video is-provider-youtube wp-block-embed-youtube wp-embed-aspect-16-9 wp-has-aspect-ratio"><div class="wp-block-embed__wrapper"><iframe class="youtube-player" width="545" height="307" src="https://www.youtube.com/embed/T2ncJ6ciGyM?version=3&rel=1&showsearch=0&showinfo=1&iv_load_policy=1&fs=1&hl=es&autohide=2&wmode=transparent" allowfullscreen="true" style="border:0;" sandbox="allow-scripts allow-same-origin allow-popups allow-presentation allow-popups-to-escape-sandbox"></iframe></div><figcaption class="wp-element-caption">«The Comfy Chair» – Sketch de los Monty Python.</figcaption></figure> <p><strong>Actualización</strong>: Hoy 27 de febrero ha sido publicada la nueva versión del emulador, la 1.0.7, llamada «The Comfy Chair» XD <a href="https://github.com/SinclairQL/sQLux/releases/tag/v1.0.7" rel="nofollow">https://github.com/SinclairQL/sQLux/releases/tag/v1.0.7</a></p>]]></content:encoded> <wfw:commentRss>https://sinclairqles.wordpress.com/2024/02/27/teclado-espanol-en-sqlux/feed/</wfw:commentRss> <slash:comments>1</slash:comments> <media:content url="https://0.gravatar.com/avatar/670e7a411bd32dc3309ddc8a7ac12a4cfa6305652b5ecbfc62415bc659494371?s=96&d=retro&r=G" medium="image"> <media:title type="html">badaman</media:title> </media:content> </item> <item> <title>Usando «MENU BOOT»</title> <link>https://sinclairqles.wordpress.com/2024/02/19/usando-sinclair-ql-menu/</link> <comments>https://sinclairqles.wordpress.com/2024/02/19/usando-sinclair-ql-menu/#respond</comments> <dc:creator><![CDATA[badaman]]></dc:creator> <pubDate>Mon, 19 Feb 2024 01:54:10 +0000</pubDate> <category><![CDATA[Software]]></category> <category><![CDATA[boot]]></category> <category><![CDATA[SuperBASIC]]></category> <guid isPermaLink="false">http://sinclairqles.wordpress.com/?p=3609</guid> <description><![CDATA[Sinclair QL Menú es un BOOT de BOOTs interactivo.<p><a href="https://sinclairqles.wordpress.com/2024/02/19/usando-sinclair-ql-menu/" class="more-link">Leer Más</a></p>]]></description> <content:encoded><![CDATA[<p>En 2008, -hace ya unos años-, creé un programa que permite, de forma flexible, configurar menús de arranque para el QL clásico, sin entorno de ventanas.</p> <p>El programa ofrece una variada gama de posibilidades de configuración para mostrar un menú desde el que seleccionar opciones que permiten lanzar aplicaciones.</p> <p>El menú puede mostrar o no información relacionada con las opciones según lo configuremos, puede recorrer una lista de opciones amplia, y lanzar una o varias de las opciones si se desea.</p> <p><strong>En definitiva, el ‘MENÚ BOOT’ no es más que un BOOT de BOOTs interactivo.</strong></p> <figure class="wp-block-image size-large"><img data-attachment-id="3620" data-permalink="https://sinclairqles.wordpress.com/2024/02/19/usando-sinclair-ql-menu/image/" data-orig-file="https://sinclairqles.files.wordpress.com/2024/02/image.png" data-orig-size="1000,700" data-comments-opened="1" data-image-meta="{"aperture":"0","credit":"","camera":"","caption":"","created_timestamp":"0","copyright":"","focal_length":"0","iso":"0","shutter_speed":"0","title":"","orientation":"0"}" data-image-title="image" data-image-description="" data-image-caption="" data-medium-file="https://sinclairqles.files.wordpress.com/2024/02/image.png?w=300" data-large-file="https://sinclairqles.files.wordpress.com/2024/02/image.png?w=545" src="https://sinclairqles.files.wordpress.com/2024/02/image.png" alt="" class="wp-image-3620" /></figure> <span id="more-3609"></span> <h2 class="wp-block-heading">Probando la aplicación</h2> <p>Al descargar la aplicación, ya cuentas con una configuración de ejemplo que te ayuda a entender su funcionamiento.</p> <p>Puedes usar las teclas del cursor, y la tecla espacio para seleccionar las distintas opciones:</p> <ul><li>1. Característica del programa</li> <li>2. Ficheros del programa</li> <li>3. Uso del menú</li> <li>4. Configuración del menú</li> <li>5. Cómo obtener ayuda</li></ul> <p>La estructura de esta configuración puede servir de ayuda para entender cómo ser estructura la aplicación.</p> <h2 class="wp-block-heading">Cómo funciona</h2> <p>El programa, que tiene el nombre BOOT, se carga mediante la facilidad del sistema de cargar ficheros BOOT al introducir el soporte y pulsar F1 o F2. Desde el BOOT se llama a MENU_BAS.</p> <p>Podemos renombrar MENU_BAS para que se inicie como BOOT si lo deseamos.</p> <p>Este programa establece el modo de pantalla y la ubicación de los archivos, carga la configuración desde MENU_CFG, y dibuja la pantalla. Seguidamente, lee el archivo MENU_LST del disco para conocer la información de las aplicaciones que debe mostrar en el listado, y a continuación, las muestra. La estructura del archivo MENU_LST es auto-explicativa.</p> <p>A continuación, la aplicación nos da la opción de que seleccionemos las distintas entradas del menú, mientras nos va mostrando la información correspondiente a cada una de ellas, que se encuentran en cada archivo _INFO creado para cada aplicación.</p> <p>P.ej. Si tenemos un juego que se llama JUEGO_EXE que queremos ejecutar, deberemos crear un archivo JUEGO_INFO para el MENU_LST que leerá MENU_BAS. El contenido de este _INFO debe adaptarse al tamaño de la ventana de información del programa. Su primera línea será mostrada resaltada.</p> <p>A parte del _INFO podemos adjuntar un _TXT con información concreta si necesitamos facilitar al usuario más explicaciones para hacer funcionar la aplicación, pero este _TXT no se mostrará desde el programa.</p> <p>Por último, una vez seleccionada la aplicación, sólo nos resta pulsar ‘Espacio’ para ejecutarla. El ‘MENU_BAS’ llamará al _BOOT del programa que queramos ejecutar con un LRUN. De igual forma que con el _INFO en el ejemplo anterior, deberemos crear un fichero JUEGO_BOOT que contenga las instrucciones de carga de la aplicación, por ejemplo:</p> <pre class="wp-block-code"><code>100 REMark carga juego<br>110 EXEC_W JUEGO_EXE</code></pre> <p>Una vez lanzada la opción, el programa termina, a no ser que tengamos activado el valor ‘multi’ en el archivo MENU_CFG. En tal caso el programa permitirá lanzar tantos programas e instancias de programas como deseemos hasta pulsar ESC para salir.</p> <p>Este JUEGO y el resto de programas de la lista deberá ser referenciado en el archivo MENU_LST.</p> <p>Con el programa se adjunta una imagen que puede ser usada como diseño de cabecera del menú, y que ocupa 1/4 de la pantalla. Por defecto, el fichero se llama MENU_SCR y se carga en la posición de memoria 131072, la primera posición de la memoria de pantalla.</p> <p>Podemos cambiar a voluntad las extensiones por defecto mediante el fichero MENU_CFG.</p> <h2 class="wp-block-heading">En resumen</h2> <p>Un fichero BOOT lanza el fichero MENU_BAS que carga información de configuración MENU_CFG que indica cómo se mostrará el menú en pantalla, y carga la lista de programas del menú que está en MENU_LST.</p> <p>Para ver información sobre cada aplicación y lanzarla, además de los ficheros de la propia aplicación (programa en SuperBASIC o ejecutable…), se necesita tener un fichero con extensión _INFO que describe el programa y lo que se mostrará en el menú, y un fichero con extensión _BOOT con las instrucciones de carga para que, una vez sea seleccionada esta opción, se ejecute el programa elegido adecuadamente.</p> <h2 class="wp-block-heading">¿Por dónde empiezo?</h2> <figure class="wp-block-image size-large"><img loading="lazy" width="1024" height="811" data-attachment-id="3629" data-permalink="https://sinclairqles.wordpress.com/2024/02/19/usando-sinclair-ql-menu/menu_boot/" data-orig-file="https://sinclairqles.files.wordpress.com/2024/02/menu_boot.gif" data-orig-size="1024,811" data-comments-opened="1" data-image-meta="{"aperture":"0","credit":"","camera":"","caption":"","created_timestamp":"0","copyright":"","focal_length":"0","iso":"0","shutter_speed":"0","title":"","orientation":"0"}" data-image-title="menu_boot" data-image-description="" data-image-caption="" data-medium-file="https://sinclairqles.files.wordpress.com/2024/02/menu_boot.gif?w=300" data-large-file="https://sinclairqles.files.wordpress.com/2024/02/menu_boot.gif?w=545" src="https://sinclairqles.files.wordpress.com/2024/02/menu_boot.gif?w=1024" alt="" class="wp-image-3629" srcset="https://sinclairqles.files.wordpress.com/2024/02/menu_boot.gif 1024w, https://sinclairqles.files.wordpress.com/2024/02/menu_boot.gif?w=150 150w, https://sinclairqles.files.wordpress.com/2024/02/menu_boot.gif?w=300 300w, https://sinclairqles.files.wordpress.com/2024/02/menu_boot.gif?w=768 768w" sizes="(max-width: 1024px) 100vw, 1024px" /></figure> <p>Como sugerencia, a la hora de crear la recopilación de programas que se van a mostrar en el menú, recomiendo que primero se recopilen los programas que formarán parte del menú, y se creen o renombren los ficheros _BOOT de cada uno de ellos.</p> <p>A continuación crea un fichero _INFO por cada programa con el mismo nombre que el usado en el fichero _BOOT. P. ej. JUEGO_BOOT y JUEGO_INFO. Cuando tenga configurado el menú, y sepas el tamaño que ocupará el texto informativo de cada aplicación en pantalla, podrás adaptar el contenido de los ficheros _INFO para su correcta visualización en el programa.</p> <p>Ahora crea un fichero llamado MENU_LST e incluye en él los nombres, sin la extensión, de cada uno de los programas. Este nombre debe coincidir con el usado en los ficheros _INFO y _BOOT. Sigue la estructura del fichero de ejemplo del programa para que la aplicación funcione correctamente.</p> <p>Ahora llega le momento de determinar cómo se verá el menú. Esto se consigue configurando el archivo MENU_CFG, cuyos parámetros están explicados en el propio archivo de ejemplo. </p> <p>Por último, añade el fichero BOOT principal facilitado y el fichero MENU_BAS. Tu menú está listo.</p> <p><strong>Es importante que, en ambos ficheros configure adecuadamente la ruta que se guarda en la variable disp$. Por defecto, su valor es flp1_.</strong></p> <h2 class="wp-block-heading">Limitaciones</h2> <p>El programa cuenta con algunas limitaciones que es importante conocer a la hora de usarlo:</p> <ul><li>Requiere que todos los ficheros se encuentren en el mismo medio y la misma ruta.</li> <li>El nombre de fichero _INFO y el nombre del fichero _BOOT han de ser el mismo, y usarlo, sin la extensión, en MENU_LST.</li> <li>La imagen de fondo tiene que tener, forzosamente, el ancho de la pantalla.</li></ul> <h2 class="wp-block-heading">Más información</h2> <p>Lee el manual disponible en la aplicación con más detalles sobre su configuración.</p> <h2 class="wp-block-heading">Descargar</h2> <p>Tienes disponible esta aplicación a través del enlace:</p> <p><a href="https://github.com/JavGuerra/Sinclair-QL-menu/" rel="nofollow">https://github.com/JavGuerra/Sinclair-QL-menu/</a></p> <p>Allí puede descargar un fichero .zip al hacer click sobre el botón ‘CODE’ en verde.</p> <h2 class="wp-block-heading">Ejemplo de uso</h2> <p>MENU_BOOT se usó en la selección de aventuras conversacionales realizado con el CAAD en 2008.</p> <figure class="wp-block-image size-large"><img src="https://sinclairql.speccy.org/utilidades/aventuras.png" alt="" /></figure> <p>Puede descargar el archivo <a href="https://sinclairql.speccy.org/utilidades/aventuras.zip">aventuras.zip</a></p>]]></content:encoded> <wfw:commentRss>https://sinclairqles.wordpress.com/2024/02/19/usando-sinclair-ql-menu/feed/</wfw:commentRss> <slash:comments>0</slash:comments> <media:content url="https://0.gravatar.com/avatar/670e7a411bd32dc3309ddc8a7ac12a4cfa6305652b5ecbfc62415bc659494371?s=96&d=retro&r=G" medium="image"> <media:title type="html">badaman</media:title> </media:content> <media:content url="https://sinclairqles.files.wordpress.com/2024/02/image.png" medium="image" /> <media:content url="https://sinclairqles.files.wordpress.com/2024/02/menu_boot.gif?w=1024" medium="image" /> <media:content url="https://sinclairql.speccy.org/utilidades/aventuras.png" medium="image" /> </item> <item> <title>Paquete de supervivencia del QL en español</title> <link>https://sinclairqles.wordpress.com/2024/02/18/paquete-de-supervivencia-del-ql-en-espanol/</link> <comments>https://sinclairqles.wordpress.com/2024/02/18/paquete-de-supervivencia-del-ql-en-espanol/#comments</comments> <dc:creator><![CDATA[badaman]]></dc:creator> <pubDate>Sun, 18 Feb 2024 18:53:09 +0000</pubDate> <category><![CDATA[Webs]]></category> <category><![CDATA[Enlaces]]></category> <category><![CDATA[manuales]]></category> <category><![CDATA[Software]]></category> <category><![CDATA[usuarios]]></category> <guid isPermaLink="false">http://sinclairqles.wordpress.com/?p=3599</guid> <description><![CDATA[«QL ES pack» es un paquete de iniciación al QL en castellano pensado, sobre todo, en aquellos que se acercan por primera vez al QL, bien porque han comprado un ordenador, o bien porque tienen interés en la máquina y desean usar un emulador.<p><a href="https://sinclairqles.wordpress.com/2024/02/18/paquete-de-supervivencia-del-ql-en-espanol/" class="more-link">Leer Más</a></p>]]></description> <content:encoded><![CDATA[<p>«QL ES pack» es un paquete de iniciación al QL en castellano pensado, sobre todo, en aquellos que se acercan por primera vez al QL, bien porque han comprado un ordenador, o bien porque tienen interés en la máquina y desean usar un emulador.</p> <span id="more-3599"></span> <figure class="wp-block-image size-large"><img src="https://javguerra.github.io/QL_ES_pack/poster.png" alt="" /></figure> <p>El pack contiene una recopilación de recursos y utilidades básicas como:</p> <ul><li><strong>Material imprescindible</strong>. Con manuales y artículos de interés.</li> <li><strong>Recursos</strong>. Como videos, y más artículos de información.</li> <li><strong>Software</strong>. Con programas como el paquete PSION en español, y otros.</li> <li><strong>Enlaces</strong>. Por supuesto tienes una serie de enlaces recomendados también para seguir profundizando.</li></ul> <p>Aquí la dirección de la página: <a href="https://javguerra.github.io/QL_ES_pack/" rel="nofollow">https://javguerra.github.io/QL_ES_pack/</a></p> <p>Este recurso on-line seguirá creciendo con nuevas aportaciones.</p> <p>Espero que sea útil.</p>]]></content:encoded> <wfw:commentRss>https://sinclairqles.wordpress.com/2024/02/18/paquete-de-supervivencia-del-ql-en-espanol/feed/</wfw:commentRss> <slash:comments>1</slash:comments> <media:content url="https://0.gravatar.com/avatar/670e7a411bd32dc3309ddc8a7ac12a4cfa6305652b5ecbfc62415bc659494371?s=96&d=retro&r=G" medium="image"> <media:title type="html">badaman</media:title> </media:content> <media:content url="https://javguerra.github.io/QL_ES_pack/poster.png" medium="image" /> </item> </channel></rss> If you would like to create a banner that links to this page (i.e. this validation result), do the following:
Download the "valid RSS" banner.
Upload the image to your own server. (This step is important. Please do not link directly to the image on this server.)
Add this HTML to your page (change the image src attribute if necessary):
If you would like to create a text link instead, here is the URL you can use:
http://www.feedvalidator.org/check.cgi?url=http%3A//feeds2.feedburner.com/es/qblog
