{"id":387,"date":"2021-08-18T17:04:03","date_gmt":"2021-08-18T15:04:03","guid":{"rendered":"https:\/\/automatico.freevar.com\/?page_id=387"},"modified":"2021-11-24T18:02:34","modified_gmt":"2021-11-24T17:02:34","slug":"c","status":"publish","type":"page","link":"https:\/\/automatico.freevar.com\/index.php\/z80-mbc2\/esp32\/c\/","title":{"rendered":"C"},"content":{"rendered":"

The graphic test program of the video terminal was originally written in BASIC.\u00a0I managed to translate it into C language (Hi-tech 3.09) and build a library to more simply invoke the primitive graphics functions.<\/span><\/p>\n

The generation of a random number is regulated by the variable “t” type time_t.\u00a0The time.h library defines the time_t type which represents the amount of time units elapsed, in number of seconds, from January 1, 1970 to the current second.\u00a0<\/span><\/p>\n

You will find libv.lib and libg.lib libraries in the section dedicated to the Hi-tech C compiler. The compilation directive is C -v graphic.c libv.lib libg.lib.<\/span><\/p>\n

Anyway here the link of graphic.com:<\/span>\u00a0https:\/\/automatico.freevar.com\/dump\/graphic.com<\/a><\/p>\n

\r\n#include <stdio.h>\r\n#include <conio.h>\r\n#include <sys.h>\r\n#include <math.h>\r\n#include <stdlib.h>\r\n#include <cpm.h>\r\n#include <time.h>\r\n#include <libv.h>\r\n#include <libg.h>\r\n\r\nmain()\r\n{\r\n        int c, i;\r\n        int r,g,b;\r\n        int x,y;\r\n        int x1,x2,y1,y2;\r\n\r\n        time_t t;\r\n\r\n        char buf[32];\r\n        char string[129];\r\n        memset(string,0,sizeof(string));\r\n\r\n        srand(time(&amp;amp;amp;t));\r\n\r\n        gcursoff();\r\n        gclear();\r\n\r\n        \/* punti *\/\r\n        i = 100;\r\n        while(i--)\r\n        {\r\n                r=1+rand()%255;\r\n                g=1+rand()%255;\r\n                b=1+rand()%255;\r\n                gpen(r,g,b);\r\n                x=1+rand()%640;\r\n                y=1+rand()%480;\r\n                gpixel(x,y);\r\n        }\r\n\r\n        i = 120;\r\n        while(i--)\r\n        {\r\n                gscroll(4,4);\r\n        }\r\n\r\n        \/* linee *\/\r\n        i = 100;\r\n        while(i--)\r\n        {\r\n                r=1+rand()%255;\r\n                g=1+rand()%255;\r\n                b=1+rand()%255;\r\n                gpen(r,g,b);\r\n                x1=1+rand()%640;\r\n                y1=1+rand()%480;\r\n                x2=1+rand()%640;\r\n                y2=1+rand()%480;\r\n                gdraw(x1,y1,x2,y2);\r\n        }\r\n\r\n        i = 120;\r\n        while(i--)\r\n        {\r\n                gscroll(-4,4);\r\n        }\r\n\r\n        \/* rettangoli *\/\r\n        i = 50;\r\n        while(i--)\r\n        {\r\n                r=1+rand()%255;\r\n                g=1+rand()%255;\r\n                b=1+rand()%255;\r\n                gbrush(r,g,b);\r\n                r=1+rand()%255;\r\n                g=1+rand()%255;\r\n                b=1+rand()%255;\r\n                gpen(r,g,b);\r\n                x1=1+rand()%640;\r\n                y1=1+rand()%480;\r\n                x2=1+rand()%640;\r\n                y2=1+rand()%480;\r\n                gfillrect(x1,y1,x2,y2);\r\n                grect(x1,y1,x2,y2);\r\n        }\r\n        i = 120;\r\n        while(i--)\r\n        {\r\n                gscroll(4,-4);\r\n        }\r\n\r\n        \/* ellissi *\/\r\n        i = 50;\r\n        while(i--)\r\n        {\r\n                r=1+rand()%255;\r\n                g=1+rand()%255;\r\n                b=1+rand()%255;\r\n                gbrush(r,g,b);\r\n\r\n                r=1+rand()%255;\r\n                g=1+rand()%255;\r\n                b=1+rand()%255;\r\n                gpen(r,g,b);\r\n\r\n                x1=1+rand()%640;\r\n                y1=1+rand()%480;\r\n\r\n                x2=1+rand()%640;\r\n                y2=1+rand()%480;\r\n\r\n                gfillelp(x1,y1,x2,y2);\r\n                gellipse(x1,y1,x2,y2);\r\n        }\r\n\r\n        i = 120;\r\n        while(i--)\r\n        {\r\n                gscroll(-4,-4);\r\n        }\r\n\r\n        \/* poligoni *\/\r\n        i = 50;\r\n\r\n        while(i--)\r\n        {\r\n                r=1+rand()%255;\r\n                g=1+rand()%255;\r\n                b=1+rand()%255;\r\n\r\n                gbrush(r,g,b);\r\n\r\n                r=1+rand()%255;\r\n                g=1+rand()%255;\r\n                b=1+rand()%255;\r\n\r\n                gpen(r,g,b);\r\n\r\n                c = 3 + rand()%4;\r\n                \/* minimo 3 massimo 6 coppie di coordinate *\/\r\n                \/* ogni coppia di coordinate occupa 8 caratteri *\/\r\n                while (c--)\r\n                {\r\n                        x=1+rand()%640;\r\n                        itoa(x,buf,10);\r\n                        strcat(string,buf);\r\n                        strcat(string,";");\r\n\r\n                        y=1+rand()%480;\r\n                        itoa(y,buf,10);\r\n\r\n                        strcat(string,buf);\r\n                        if (c>0)\r\n                        { strcat(string,";"); }\r\n                }\r\n                strcat(string,"$");\r\n\r\n                gfillpth(string);\r\n                gpath(string);\r\n\r\n                memset(string,0,sizeof(string));\r\n        }\r\n\r\n        i = 120;\r\n        while(i--)\r\n        {\r\n                gscroll(-4,0);\r\n        }\r\n\r\n        gclear();\r\n        gclrterm();\r\n        gcurson();\r\n}\r\n<\/pre>\n
<\/p>\n
Negli anni ’70 un geniale matematico ide\u00f2 il “Gioco delle vita”, un universo monocellulare con regole semplici di vita o di morte. Come nella realt\u00e0 gli organismi sopravvivono se non c’\u00e8 carestia o sovraffollamento, anche in questo universo artificiale valgono le stesse regole. Inizialmente Conway propose la grafica della sua teorizzazione disegnando linee come righe e colonne su di un foglio di carta. Nei quadrati poi applicava queste regole per ogni generazione:<\/span><\/p>\n