Print Page - An ASCII logo for Pascal language

Miscellaneous => Other => Topic started by: Roland57 on March 22, 2023, 08:09:51 am

Title: An ASCII logo for Pascal language
Post by: Roland57 on March 22, 2023, 08:09:51 am

Hello everybody.

I created an issue (https://github.com/o2sh/onefetch/issues/872) in onefetch (https://github.com/o2sh/onefetch) repository, to ask for Pascal support.

An ASCII logo (https://github.com/o2sh/onefetch/wiki/ascii-art) is needed.

Would you have an idea for a Pascal logo?

Some examples on this page (https://onefetch.dev).

Regards.

Roland

Title: Re: An ASCII logo for Pascal language
Post by: marcov on March 22, 2023, 08:30:01 am

There is an ANSI logo, namely the background of the textmode IDE.

packages\ide\fp.ans

Title: Re: An ASCII logo for Pascal language
Post by: Roland57 on March 22, 2023, 10:01:03 am

Thanks, but what is requested is ASCII art, and a logo for Pascal language, not for FPC.

Title: Re: An ASCII logo for Pascal language
Post by: KodeZwerg on March 22, 2023, 10:11:32 am

Code: [Select]

                                                       ...        ....
                                                     ..               ...
                                                    ..  .,:!**!;:~,.     .
                                                    . .~!!!!!!!!!!!!!;~,  .
                                                   . .;!!!!!;;;!!!!!!!!!~  .
                                                   . ,!!;..    .....-;!!!~ .
                                                     :!!              -!!;, .
                                                  .  !!;               -!!- .
                                                  . .!!~                !!~
                                                  . .!!-                !!;
                                                  . .!!.                :!!. .
                                                    ~!!.                -!!. .
                                                 .  !!:                 ,!!. .
                                                .  :!!-                 .!!  .
                        ........               .  ~!!;.                 .!!. .
                       .   ...   .           ..  ~!!!-                  .!!, .
                      .  -::;::-   .       .    :!!!,                   .!!:  .
                     .  ;!!!!!!!;.  ......    -;!!!,                     :!!  ..
                    .  ;!!!;;;!!!!-         ,!!!!;,                      ,!!;   .
                   .  :!!;,   ,~!!!~--,,,-~!!!!;~.          ~            .:!!;.  .
                  .  ,!!!.      -!!!!!!!!!!!!;~,            !             .;!!;-   .         ... ...
                 .  .!!!.        .:!!!!!!!!;,               =               :!!!;   ..     ..       ..
                 .  !!!,            .~~~-                   =.               -!!!;,   .....   .~:-.   .
                . .;!!~                                     =.                -;!!!;,,     ,-;!!!!!;,  .
                . ~!!:.                                     $-                 .-!!!!;:~~~:!!!!!!!!!!-  .
               . ,!!;                                       $!.                  .~!!!!!!!!!!!-. .~!!!, .
               . -!!-                                       =-                      -;;;;;;;,      ~!!;  .
              .  ;!!                     .                  =-                         ..           :!!-
              . .!!~            .-:;;;;!!!:.                =-                                       ;!!  .
              . .!!.          :===$$$$$$$$$=!.              *,               -*==**;~,               -!!~ .
              .  !!.         -====$$*~--~;====-             !,            ,!=$$$$$$$$$$$;.           ,;!! .
              . .!!~         ,;. -=$.   ;:- ,=*.            !.           ,!!$$$!;;=$$$=$$=~           ~!!. .
              .  :!!~            .!$;   -~.  ;$-       ...  !..         .;~ ~$!   ;$$*--:$=.          ~!!~ .
               . ,!!!:            .=$~       ~$!     .......;. ...      .!-  .    ;$$;   ~$:          .;!~ .
               .  -!!!!.           .==~     ,$$$    ....... .. ....   . .=~      .!$=.    -.           ;!;.
                .  ,:!!!,           .!=:---;$$$$. ....          .....   .==~    ,;$*-                  :!!, .
                 .  .~!!!.           .-!$$$$$$$$. ... ............ .... ,$$$!;;;*=:,                   ,!!- .
                  ..  :!!~             .,,~=!$$$,................. .... ,$$$$$*~,.                     ,!!, .
                    .  ;!;,                  ~$$~..  ..............     ,$=.~-                         ~!!, .
                     . -!!-                  .!$:...................   .,$~ .                        .-!!;. .
                     .  !!;                  .!$;. ..................  .,$~           .......       ~;!!!~ .
                        ~!!.                 .!$!. ..................   ,$~...................    ,;!!!!-  .
                      . .!!.                 .!$*. ..................,,,-=:...................   -!!!!~   .
                      . .!!,                 .!$*.................,,,,,,-=:.,,...............   -!!!~,   .
                      . .!!,                 .!$*...............,,,,,,,,,=:..,...............  ~!!!-  ..
                      .  !!.                 .!$!.............,,,,,,,,,,,*;,,,............... ,!!!-  .
                      .  !!.                 ,*$-...........,,,,,,,,,,,,,;=,,,..............  :!!~  .
                      . .!!.                 ~$$...........,,,,,,,,,,,,,,:$~.,.............. ,;!;  .
                        ~!!.                .!$!..........,,,,,,,,,,,,,,,-**.,.............  -!!, .
                     .  !!;.                ,$$,..........,,,,,,,,,,,,,,,,;$,..............  -!!  .
                     .  !!-                .!$:..........,,,,,,,,,,,,,,,,,,=*,.............  :!!  .
                     . :!!,                ,$=- ........,,,,,,,,,,,,,,,,,,,;$;,............  ;!!
                    . .!!:.               ,!$~ . .......,,,,,,,,,,,,,,,,,,,,==~............ .!!;
                   .  ~!!~               .!$!.      ...,,,,,,,,,,,,,,,,,,,,,~$;,........... .!!- .
                 ..  -!!;                ~$=    .......,,,,,,,,,,,,,,,,,,,,,,!$,..........   !!. .
               ..  .~!!;,               ,*$~    ..... .,,,,,,,,,,,,,,,,,,,,,,:$~..........   !!  .
              .   -;!!;,                !$$,     .....:!!:-,,,,-;!!!:,,,,,,,.~=*..........   !!. .
             .   ;!!!;.                 !$$!    . .,.:$$$$==***=$$$$$!-,.,,,.-*$,.........  .!!. .
            .  :!!!;;                   $$$-      :$!$$$$$$$$$$$$$$$$$$~,,,,.,*$!.......... .!!:
           .  :!!!:-                   ,$$*.      ~$$$$$$$$$$$$$$$$$$$$-,,,,.,!$:..........  :!!  .
           . ,!!!,                     :$=-       .=$$$$$$$$$$$$$$$$$$=,,,,...~$:..........  -!!~
           . ,!!.                      !$*,       .;$$$$$$$$$$$$$$$$$$:.,.,...,=!........... .;!!  .
           , ,!!                       =$!.      .,.~=$$$$$$$$$$$$$$=;..,......==...........  ~!!:  ..
           . ,!!.                      ::.     ..,,,,,;$$$$$$$$$$$$!-,,,.,.....**...........   ;!!~   .
           . ,!!~                       ;~    .....,,,,!$$$$$$$$$$;,.,,,.......==-.........    ,!!!:,  .
           . ,;!;                      -$*, ........,,,-$$$$$$$$$*,,,,........,==-.........     .!!!;-  .
            . ~!!.                    -=$$*,.........,..-=$$$$$$*,............:$$~........       .:!!!, .
            . -!!~                  ...!=$!,..........,,,,:=$$=;,............,:*$;........         ~!!:  .
            .  ;!;.               .....,=*;!~............,.;$$;,...........,!*=*~-.......           ~!!  .
             . ~!!-              .......=;$$$;.............:$!,,...........,$$$$*........           .!!. .
             .  !!!.            . ......,!*$*...............:;~.............,*;!:......             ,!!  .
                -!!-                 ....~!;,-,.............................~~;~.......             !!!  .
              .  ;!!.          .      ...,,-~:.............................-;;-,......             -!!-
               . -!!;      -;;;;;;;-    ...,=,..............................,~.......              ;!!, .
               .  ~!!:. .-!!!!!!!!!!!~    ..~,............,.........................              ~!!~ .
                . .;!!!~;!!!!:~~~:;!!!!-.   .~............,....................                  .;!!, .
                 . .:!!!!!;-,     ,,;!!!;-   ..............................                      :!!~ .
                 .   ,!!!-   .....  .-!!!!-   ...........................       ,~~,            ,!!!  .
                  ..        .     ..   :!!!~   ........................    .:!!!!!!!!;.        .!!!.
                    ..    .         .   -;!!:   .....................   ,-;!!!!!!!!!!!!-.     ,!!!-  .
                                      .  .;!!-  ....................  .~;!!!!;-,---,~!!!;-   -;!!~  .
                                       .. .!!!,  .................   ,;!!!!,.        ,;!!!;;;!!!:  .
                                         . -!!~  . ..............   ,!!!;~    ......   ;;!!!!!!-  .
                                         .  :!!.     .......... .  ,!!!:.   ..      .   ,::;:~.  .
                                          . .!!-        .         ,!!!~  ..           ..   .   ..
                                          .  !!;                  :!!~  .               .......
                                             ;!!                 -!!;  .
                                             ;!!                 ~!!. .
                                             :!!                .!!;  .
                                           . :!!                .!!, .
                                           . ~!!                -!!  .
                                           . ~!!                ;!!  .
                                           . -!!,               !!;
                                           . ,!!;-              !!~ .
                                           .  ~!!!!~. ..    ...;!!, ,
                                            .  ~!!!!!!!!;;;;!!!!!:  .
                                             .  ,-;!!!!!!!!!!!!!~. .
                                              ..   ..,~;!**!!;~.  .
                                                ..               .
                                                  .....        ..

Title: Re: An ASCII logo for Pascal language
Post by: af0815 on March 22, 2023, 10:18:45 am

Pascal is FPC (SCNR) It looks nobody have done this Job before.

A simplified ASCII picture of Blaise Pascal will a good idea, but the question is, is the picture free for such a using.

And Lazarus is not Pascal, it is using Pascal.

Title: Re: An ASCII logo for Pascal language
Post by: KodeZwerg on March 22, 2023, 10:25:11 am

Code: [Select]

 ....,............... ....... ..... .....   ... ..... .... ..    ... .............  ....................................
 ..............................  ..   .. ... . ..... ............    . ... .. .. ....................................,..
............... .......................  .... . ....,,~:;*=!:;;~,..    ......... ...  . ............................,...
....................... ................ ...  .....~*!$$==$=!!*=**~,...... ........  ...............................,...
.................................   .... .... ..,-~;=*=$=$=$=!=*!=*;:-.. .........  ....................................
.. ............................ ................!!:$$===****::;;;!!:=*-. ......... ......... ...........................
...... ....................... .............. -:=*!=!!;::;*;~~~-~~::!=!:. ... ..........................................
......... .................... . .... . ......;:!~;;;::~~:~-,,,,,--;;=*!. ..   ...................................,.....
...........................  ....... ..... .,::~~::;~-~,-~....,..,,~~!**:~,.. . ........................................
.... ....................... ... .. ....   .~*;::::;:--,,,.......,.-,~!$==:.............................................
.... ..........  ............  .... ....  .:!*!**~;!;~;~-,......-,..,-;==$*......... ...................................
........................ ............. ... !!=!=$!*!:~;:-,......,....,:!=#$~....   .... . ..........................,...
......  .. ......... ... .............. . ,!=$$*#$*=!::;,,...,......,,~!=#*~  .      .. . ..............................
.......... ......... ......... ... ...... ~!*$#!##!*;:;-,......,,,,,,,~:=#=;,....    ...  ..... ........................
...... ... ......... .... .......... .....:=#==#====*=!--,,,..,-,,-,-,::**$*,,......  ................. ................
... ........................... ..      ..;=$$$@**=$!*!;----..,-~~~~~-:!=$$*:-.......... ...............................
....  ...................................~*!=**:*;=!=:!:~--,-;*=$*!-::*===#$!-.....  ........... ....... ...............
......................   ......  .... .. ;*=$*;;!!##=!!*:--~~:;!*==!!!*!*!#$*;   ..... .......  ........................
.......................... . .... .... . ~;!;!*;;*#=$=;;;~~:;*=*=!;::==;$##*:~  ....  ... .... .........................
........................ . ......   .. ..:**=;!!;#!#*=!*;~::!;:!=$;~-!*@#$$*!:............... ..........................
..................... .......  ...   ...-!*=!;;*!*##=*;;:~:*!!$$$!:--:$#$$#=*,..  .... ....... .........................
..................... .................,:==$*;*$:$$$=!::~~:;=$=!;:~,,,:=!=$!:... . ...  ......... ......................
........................... ...........~;==$==*=*==$=*;:~~~~::~~;~-,,,~*!!=*~.. ............. ..........................
.......................... ........ ..-:!!!==$***=**==!:~---~~-~~-,-,,-;;;!=!... ..... .. ..   .........................
 ..................... ..  ......   .,:!=*!!*==**$$=$$*!:-,,-~~~---,,,-:=!**;,.    .....  .. . .........................
.......................  .......  ...-~!$*!;**===$$===*;~~---,----~~~,-~=***!..   ..... . .... .........................
............................. . ....,~;;***!;*!*;====**;:~-~,--~~~;:~~~~====;............ ............................ .
............................... ...,:!==!=!*!**!;=$$**=!;:~~-~:;;:~;!***$$=$:............ ............................ .
....................... ....... .,-~!!=$**!===**$##$!**!::::::;;;;~::*$#$$$*;...........................................
....... ............... .........~:;;;**!*;=*==$@@#=*;**;:::;;:;::::~;*#$=#=:... ........... ...........................
................ .. ..... .......-:!**;;;;!=:=$$@#@$=****;:;;;;::::~~;!$$*#=:~.............. ........... ...............
................  ....... .... .-;;;**!;!*!!!!!*#$@#$=**!!;::~~;;=**==#$=!#*;:.......   ... ............................
..................... . .. ....,:!=$=**=!!*;!!;*=$##$**;:!;::::~:~:::**#$#=;:--,,... ...................................
............ ........ .  . ....,~::;!$$=!=*$=$*=!@#*$**!*!;!!;~::~~-:$$$*$*:-,...... . ............ ....................
. ........................ ..,.-;!;!*!;$=*!;=#$*@!*;!!*=!;!;:::;~:;:!=$$$#!:~:--....  ........ ..... ... ...............
...... ............... ... .,-~:!*!*!:*!!=$=#$@@*#**:;;$=***;;;:-,:~~-;=@=!~~~,..,-...... .... ....................... .
............... ............,-~~;**!!*=***=#=$###$!!~~:;*=**!;;;:-,~-~;*##*;::----,,,,......  ......................... 
,...... .............. .,,,,,~;:;;!*====$=$$*==@$=!:;,,,~=$*;**;::~~::=#$$!;~~,-~,-,.,....  . . ...   ..................
..................... ..,-,--~!;*=$**$$$$#$#=##@**!::-,,--:*$##***!***#$$**;~~:-~-,,,~-.... ...  .......................
........ ..............,,~--::!!;*=$$#$**#$=$$$==;!;::-,-,-~;!*=$==$$#$##;!;!;~~--~--~~,......... ......................
.......  ...........,,,,,~--:~;*===$$$=!*$$$=$$!!:!!:~~-,,,,,-~;;*=$$$#@$=!:;!~;~-------,.......... ....................
...................,~-~,,,~~:~!=$**$$$===##$=$=;:~;~-,-,,,.,,---~;****$#==**!!~~:~~-----,,,.............................
...................--~:~--~~:;*$=**====$$$$###$;~-::-,-,,,,,,-,,-~;!;;===$$=!::~~;;~---,--,,, ..........................
...................,,,~~~~~::;!***==$$=$#######=!~---,-..,,..,,,,~~!!;*!=#$=***!:!;~-~~-~:--,...........................
..................-,~---:::::;;;!===$###@@##$###$;-----,.....,,,,-;;!:**=$###$=$**!:::::~-~-,,.. ........ ..............
......... ..... .,-~:~::;:!:;!!***==$##$###@@@@@#$;;-,,,....,,,,--~~~;:!$=#@##=#$=*!!;;:::;~,,..........................
..... ...........,-;~:;~!;!;!*!*!*$$$#**$#@@#@@@@@$=*~--,....,,,-,,--;:;$=*$####$#$$=;::~;:~-,,-,. .   .................
................,:~;!:;-!;;;!*:!*==$##*=$$@@#@@@$@#$$$!-,.....,,-,,,-~~:;*!!##@###@#==*;:;~~:-~~,-.. ..  ...............
.......... .....~::;:;!;!*!*!!*!$$$=*=*=$$####@@#@@#*##!,,,,,--,.,--,~~;:::!*=#$@#@@$=*;:;::::--:~. ... ................
................~:~:;;;;!*;*:;;!#$$***;!*=$#@@@@@@@#*$*#!,,,,--,,,,,--:~;-!::!*@@@@@$*=*;:*:*~;:~:,...  ................
...............,-;::!!;*::!;!*=====*!::;**!$@@@#$#@#$#!=#;,,,,,,,...~~~-,.~#=-;##@##$*#*;;;!=~:;~!-..  .................
............ ..--:!!*;:!#!!***;=*==*!!::!;*!#$@@#@@@##=*=$;-.....,,..-,,,*=#=$#@@@@@##@$;!*!!**:$-;,.............   ....
................;;~*!!;$!!!;;*=$$!*=;;;:;*=**#@@@@$@@##=##*.........,..;$$@##=###@@@##@@$!!;*=:!;;;~ . .................
............   -~~;;;=#=$;:!**==*!;!!;!;~:;:*!##@=##@#=$=$$!,-,.,....,#=#$@$##@@@##@@##@$;:!!!!;!;:~-...................
.............. .~::;=!:**$=!!==!!;!*$;:;!*!:~*:#@$@##@@##$*=!.,,,...,=@=##@@#@@$##@@###@=:*!$=~*;*:!-...................
...... .........,:*!*:**===!*==*!;!!;~~~~::::!**#@@$@@@###$==~..,,,,$*#=@*##=@@@@@@@@@@#$=$*==;;*;:~--,.................
........ ........:;;=:!=*!*!!==*;:*!;;~~;;:!-;*!*$##$@@##$=*=*-.,,-:$$#*$$=$=@###@#####$##***!!:*~;*~-..................
.................:~;!*=!*!$**=!;!;!;;;~:::;:;;*;!*$###@#$@##=!:,,,-=#$=$;$*$=#@@@######@@#=!=!*;;;*;:-, ................
... .............,~!;*;!$;=*=;::!!;:!:~::;:;!;;*=*!*==######$!!:-,;*$$==**$#=$@@@@#$@@@@##==!!!*~!*;::, ................
.... .............:;!*!======::;;:~:;:;;;;::::;*$!=$=$$##$##$***!;#$#=#*!!$@#$@@@####@@@@@#$=;***!!*;~- ............. ..
...................-:!*!*$*=!;;;:~:::;;-~:::::;*=!==$=*=$=##$$#=*$####@@==$@###@####@@###@@$=**!==:*;:- ................
...................,~;!;*==*!!!;:;;:!!;~~;;;~;;:!=*$#$*===$#$$$=!**=$#@#@#@##$####@@@@#$#@#$=*=*!$;=;!,.................
....................;:=!=*==;;;;~:;;!*!;~:;;~!;:!=$=$#$$==#$$$$#==!*=#@$#$=########@@##$#@##=***;=!*!:,.................
....................-~***=;*!:*!;::;:;:;:~:;;:;*;;**=$$=*===####=$*=*=####$#$#$$#@@@#$$#@@##$$=**=*!*~-.................
.....................;:**==~:;*;;;::;~-:::;;;~;;*:**$$=*=$$==#$$##$*$===@@#@$$##@#@@#$##$$=#$=$$!$*!;;~.................
.....................--;=:=:;~:;;:::;:;::;!:;;;:=*!*=$$=$===*===#=$$##**=@#$*####@@#=*$$=#$##$!#!=!!;*~.................
... ...................~!!**!:~;!~:!;;:;~:!::;;;**=!!=$$=*!*=$=!$$##$$=*;=##$##$$@#=!*=*=$$$#$*$=**;*;..................
.......................,:*!*!!!::~:;:::::~:~;!!~:$*;;=#$*$$$$=**=#$$@$#$=!=$#@@##$$==**=$=*=@$$=$*!;;:..................
,.......................-;*!;*;:~~~~~~::::;:!*!;;$=*::=#$=##===**==$=##$#====$#@@@@$=**=$=!*$=#*@#;!;!..................
..................... .,-:::;*;---;~-~~:;-~;!!*;!##*$!*=!*!$$*==$$$@$$###**;*=*$##@###$*!*==$##*=*=*-,..................
................... ...-*:;:*!~,:~~,,~~~;~::~:-:*#==$*!*#*!*=#=!**#@###$*==*==**$===$#$##**$#$==*~=;,...................
................... ...--,~,!:...,,,,,---~-~~;*!:**$:*=*==*!*#$=$$=###=##$=$#$$==$==##$$#@@##$#;#*:=....................
,...........   ........~,,-~=~......,.,,,-,,--*=~*$=$*$!!$#=!=#!=$####@##=$#$#=$$==$#$=$#@@$##@$!=*;....................
.. ................. ...~,~-;,....... .,,--~~~;=!~*==!*;!##=;:=@*$=$=#@@#*##$#=##$=$$=###@$$$$$!$#!;....................
..........................-,:............,--~~*:!,;:===!!$#$*=$@@==#@@#$#*$##$=$#@@#####@@##@*$*=$*.....................
............................, .......... .,..-,!;-~~!!#==*=$$==$#@$$#@#**@@#=*$#@#####=$@##=#!====~.....,,.......,......
...........................,~.... .........,..-~~-:;~!=$$$$#$**$#@@#@@@#=###$*$#####@@==#$=$$#;*=,......................
...........................,;.... ............,,,:,~~:!##$=$#===#$#@###$==$@$$$#######$=$==###!$-.......................
............  .... ...... ..-...... .. ..........,.,,~:=##$$#=**$*$##$@#=!##=##$$###@$$$$###$==;........................
.............................,  ...... .. .........,-:-!$##$====$=$$$=$@=$$$=#@$=#@#####$#$##**.........................
....................... .. ....  ........  .. .. ..,-~,:*##=!**!*=*$=$#@#$=#=###=$@$$#$=$$=#@$*...................,.....
............................. ........... .. ..........-;*$=====;*==$@@@$#$$=#=$*$#$$##=$#!=$=*...................,.....
............................. .................. .......-;=#@$****$*#*$#$@#=$$#$=###$$$#=$$$=*~......................,..
..... .............. ........-..  .......... .... .... ..,~=$#**!*=$@$##=*=####$$$$$$$##$*=#=*,..................,......
......................   ...~.... ... ..... . . ....... ...~*=$**=$$##=#$==#####==##$$##$##==*,..................,......
...................... .....-*!~ .....  .. .... ............;#*==*$=*$!$==#$#@#=$=$##$$==!!*:;-.........................
.,...... ............. .... .....-~ ...  ... .... ...........:==*;*!**$=~!==!!$$#=$#$=*=*!!!;-..........................
....................... ........,,...:-... .. ..... ... .....,,:$!-!=!!,,.!;,-~!*=!=$##=*!:-..................,,........

That doesn't look that good ;D

Title: Re: An ASCII logo for Pascal language
Post by: marcov on March 22, 2023, 10:37:53 am

But the C++ example is colored ?

https://github.com/o2sh/onefetch

Title: Re: An ASCII logo for Pascal language
Post by: domasz on March 22, 2023, 10:54:21 am

Code: Pascal [Select][+]

 
  _____         _____  _____          _      
 |  __ \ /\    / ____|/ ____|   /\   | |     
 | |__) /  \  | (___ | |       /  \  | |     
 |  ___/ /\ \  \___ \| |      / /\ \ | |     
 | |  / ____ \ ____) | |____ / ____ \| |____ 
 |_| /_/    \_\_____/ \_____/_/    \_\______|

https://patorjk.com/software/taag/#p=display&f=Big&t=PASCAL

Title: Re: An ASCII logo for Pascal language
Post by: hansotten on March 22, 2023, 11:02:25 am

Code: [Select]

@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
@@@@@@@@@@@@@@@@@@@@@@@@@&&&%#%%%@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
@@@@@@@@@@@@@@@@@@&@@&(...........,,,,,,,,**(&%/,,,,,(&&@@@@@@@@@@@@@@@@@@@@@@@@
@@@@@@@@@@@@@&%@@/,//*..... .............................,*#@@@@@@@@@@@@@@@@@@@@
@@@@@@@@@@@&#*.*,,.....  ..,,*/////((///*,,.................,(&@@@@@@@@@@@@@@@@@
@@@@@@@@@#,,,,,.........,*/((((###((#####(/*,...............,.,/%@@@@@@@@@@@@@@@
@@@@@@@@%****,... ..,*/(((##(((#######%%##(/*,,,...        ......,#@@@@@@@@@@@@@
@@@@@@@%,,,,.    .,,*//((((((((############(/**,,..           . ...*#@@@@@@@@@@@
@@@@@@@(...     .,,,*/(((#(((((############((/*,...  .            .../@@@@@@@@@@
@@@@@@@##*.    ..,,,*/((##(((((((###########(**,,,....              .,%@@@@@@@@@
@@@@@@@*..     ..,,,*//((((///((((#######((((/*.,,,....             ..*&@@@@@@@@
@@@@@@%,..          .*/(((*,..,,***,*/(##(((/*,.,,,,,,               ..#@@@@@@@@
@@@@@@&*,.    ...... .*/(/,,,,,,***//***((((/,,....                     #@@@@@@@
@@@@@@%,,..  .... ...,*(#(/,,,**//((**/(((((/,...      ....   .....   .,,#@@@@@@
@@@@@@%*,.   ...**,.,(######(//((,..,///(((((/,....  ...........      .,/&@@@@@@
@@@@@@&/...   .,.,.,(##((###%((((/((####%##((/,.....     .......       ,(%@@@@@@
@@@@@@&#,..  .,*,.,/(#(((###########%%%%%###(/*,.,,...     .          .,#%&@@@@@
@@@@@@%*...  ..,.,*(#(((((((((############(((/,,.....    .....       .,*/&@@@@@@
@@@@@@&*..    ...,/##//((((///((##((((((((((//*,,..  .... .....      .,/(%@@@@@@
@@@@@@@/...    ...,,,,,,,*//(#(((((//*////////**,,...,,.   ..      .  .*(&@@@@@@
@@@@&(,..       ......,*/(((((((((((((/////////**,,.                  .,*&@@@@@@
@@@@(*,...       ...,,/(((((/////((##((((/((///**,,...               ./%&@@@@@@@
@@@%*,,,.        .....,.,***,*****/////(((((//**,,....,*,            *%@@@@@@@@@
@@@#*,,...        .,,,,,,**/(((((//////(((//***,,.,,/((/*,.          ,%@@@@@@@@@
@@@%/,,,...        ...,,*****//((((((((///****,,*/##%#(/*,,,..        .*&@@@@@@@
@@@@@@&&@#...       .,*//((((((((((////***,,**(#%&&%#(((/****,..     ../%&@@@@@@
@@@@@@@@@/....       ..,,,***************/(#%&&&&&%#(((/((/***,,,..   .(&@@@@@@@
@@@@@@@@@(,,**,.    .*(#/,.,,,...,,**/(#%%&&&&&&&&%(//#%#(****,......../@@@@@@@@
@@@@@@@@@@@(***,..*%&&@&@%,.......*((#%%&&&&&&&&&#((#%&&/*/(#*,....,,**(@@@@@@@@
@@@@@@@@@@@@&/**(&@@@@@@@%*,,,**,,/#%&&&&&&&&&&&###&@&&/*(&&#**********%@@@@@@@@
@@@@@@@@@@@@@@&&@@@@@@@@@&(****,*#&&&&&&&&&&@@@#/(&&&&(,(&&&/***,(&&%&&@@@@@@@@@
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@&&&&&&&&@@@@@@@&#&@@@%(#&@@@@@@@@@@@@@@@@@@@@@@@
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@&&&&&@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

Title: Re: An ASCII logo for Pascal language
Post by: hansotten on March 22, 2023, 11:03:19 am

Code: [Select]

                                                                                
                                                                                
                         ...,*,,,                                               
                  .  ./&&&&&&&&&&&%%%%%%%%##/.,(%%%%%/..                        
             .,  (%((#&&&&&@&&&&&&&&&&&&&&&&&&&&&&&&&&&&&%#*                    
           .*#&#%%&&&&&@@&&%%#(((((//(((#%%&&&&&&&&&&&&&&&&&%/.                 
         *%%%%%&&&&&&&&&%#(////***//*****/(#%&&&&&&&&&&&&&&&%&%(,               
        ,####%&&&@&&%#(///***//*******,,**/(#%%%&&&@@@@@@@@&&&&&&%*             
       ,%%%%&@@@@&%%#((////////************/(##%%&&@@@@@@@@@@@&@&&&#*           
       /&&&@@@@@&%%%#(///**///*************//(#%&&&@@&@@@@@@@@@@@@&&&(          
       **#&@@@@&&%%%#(//**///////***********/(#%%%&&&&@@@@@@@@@@@@@@&%,         
       #&&@@@@@&&%%%#((////(((///*********///(#&%%%&&&&@@@@@@@@@@@@@&&#.        
      ,%&&@@@@@@@@@@&#(///#%&&%%###%#(/**///(#%%%%%%%%@@@@@@@@@@@@@@@&&*        
      .#%&@@@@&&&&&&@%#(/(%%%%%%###((###////(%%&&&&@@@@@@@@@@@@@@@@@@@@@*       
      ,%%&&@@&&&&@&&&%#/*/(%%%##((//##(/////(%&&&@@@@@@&&&&@@@&&&&&@@@&%%*      
      ,#%&@@@&&%##%&%/******/((//%&&%(((/////(%&&&&@@&&&&&&&&&&&@@@@@@&%(.      
      .(&&&@@@&%&%&%/**//***,////(//****,***/(%&&&&&@@@@@&&&&&&&@@@@@@@%/,      
      .*%&&@@&%#%%%(**///***********,,,,,***/(#%&%%&&&@@@@@&@@@@@@@@@@&%*,.     
      ,#%&&@@&&%&%#/*/////////*************//(%%&&&&&@@@@&&&&&@@@@@@@&%#(.      
      .#&&@@@@&&&%(**((////(((//**//////////((#%%&&@@&&&&@&&&&&@@@@@@&%(/,      
       (&&&@@@@&&&%%%%%%%#((/**////((#((((((((##%%&&&%%&@@@&&@@@@@@&@@&#/.      
    ./%&&@@@@@@@&&&&&&%#(///////*/////(((((((((##%%&@@@@@@@@@@@@@@@@@@&%#.      
    /#%&&&@@@@@@@&&&%%(/////(((((//**////(//(((##%%&&&@@@@@@@@@@@@@@@&(,.       
   ,#%%%&@@@@@@@@&&&&&%%%###%#####(((((/////((##%%&%&&%#%@@@@@@@@@@@@#,         
   *#%%&&&@@@@@@@@&%%%%%%##(/////((((((///((###%%&%%(//(#%&@@@@@@@@@@%,         
   ,(%%%&&&@@@@@@@@&&%%%#####((////////(((####%%#(**,*/(#%%%&&@@@@@@@@&#.       
      .. *&&&@@@@@@@&%#((//////////((((###%%##/*,..,*///(####%&&@@@@@&&(,.      
         (&&&&@@@@@@@&&%%%###############(/*,.....,*///(//(###%%%&&@@@%/.       
         /%%##%&@@@@&#/*(%%%%%%&%%%##(/*,,........,/((*,*/####%&&&&&&&&(        
           /###%&&#,.. . ,%&&&&&&%#//*,,.........*/**,..(#(/*#%&&&&%%##/        
            .(##/.       ,#%%%##%%(*,...........***. ..(#*..*##########,        
              ..         ./####%#*..........   *(/..../%/...(###%/..,..         
                                ........       .*.   ,/*.                       
                               .....

Title: Re: An ASCII logo for Pascal language
Post by: Roland57 on March 22, 2023, 12:02:23 pm

Quote from: marcov on March 22, 2023, 10:37:53 am

But the C++ example is colored ?

Yes, the syntax is described here (https://github.com/o2sh/onefetch/wiki/ascii-art).

By the way, the example has twenty lines.

Thank you all for your contributions.

Title: Re: An ASCII logo for Pascal language
Post by: Roland57 on March 22, 2023, 12:24:36 pm

Important information! The logo must not exceed a width of 40 characters and a height of 25 lines.

Title: Re: An ASCII logo for Pascal language
Post by: lainz on March 22, 2023, 02:24:12 pm

Code: Pascal [Select][+]

      ___________________________________________            
      \_   _____/\______   \_   _____/\_   _____/            
       |    __)   |       _/|    __)_  |    __)_             
       |     \    |    |   \|        \ |        \            
       \___  /    |____|_  /_______  //_______  /            
           \/            \/        \/         \/             
__________  _____    __________________     _____  .____     
\______   \/  _  \  /   _____/\_   ___ \   /  _  \ |    |    
 |     ___/  /_\  \ \_____  \ /    \  \/  /  /_\  \|    |    
 |    |  /    |    \/        \\     \____/    |    \    |___ 
 |____|  \____|__  /_______  / \______  /\____|__  /_______ \
                 \/        \/         \/         \/        \/

Title: Re: An ASCII logo for Pascal language
Post by: avra on March 22, 2023, 02:58:36 pm

Code: Pascal [Select][+]

                                                             
    _/_/_/      _/_/      _/_/_/    _/_/_/    _/_/    _/     
   _/    _/  _/    _/  _/        _/        _/    _/  _/      
  _/_/_/    _/_/_/_/    _/_/    _/        _/_/_/_/  _/       
 _/        _/    _/        _/  _/        _/    _/  _/        
_/        _/    _/  _/_/_/      _/_/_/  _/    _/  _/_/_/_/   
                                                             
                      
    ____  ___   _____ _________    __ 
   / __ \/   | / ___// ____/   |  / / 
  / /_/ / /| | \__ \/ /   / /| | / /  
 / ____/ ___ |___/ / /___/ ___ |/ /___
/_/   /_/  |_/____/\____/_/  |_/_____/
                                      
                                       
 
 ____   _    ____   ____    _    _     
|  _ \ / \  / ___| / ___|  / \  | |    
| |_) / _ \ \___ \| |     / _ \ | |    
|  __/ ___ \ ___) | |___ / ___ \| |___ 
|_| /_/   \_\____/ \____/_/   \_\_____|
                                       
 
 
 
                           _ 
 _ __   __ _ ___  ___ __ _| |
| '_ \ / _` / __|/ __/ _` | |
| |_) | (_| \__ \ (_| (_| | |
| .__/ \__,_|___/\___\__,_|_|
|_|                          
 
 
 
__________                                .__    
\______   \____     ______  ____  _____   |  |   
 |     ___/\__  \   /  ___/_/ ___\ \__  \  |  |   
 |    |     / __ \_ \___ \ \  \___  / __ \_|  |__ 
 |____|    (____  //____  > \___  >(____  /|____/ 
                \/      \/      \/      \/        
                
 
 
██████╗  █████╗ ███████╗ ██████╗ █████╗ ██╗     
██╔══██╗██╔══██╗██╔════╝██╔════╝██╔══██╗██║     
██████╔╝███████║███████╗██║     ███████║██║     
██╔═══╝ ██╔══██║╚════██║██║     ██╔══██║██║     
██║     ██║  ██║███████║╚██████╗██║  ██║███████╗
╚═╝     ╚═╝  ╚═╝╚══════╝ ╚═════╝╚═╝  ╚═╝╚══════╝                                  
 
 
                                                                                                  
8 888888888o      .8.            d888888o.       ,o888888o.           .8.          8 8888         
8 8888    `88.   .888.         .`8888:' `88.    8888     `88.        .888.         8 8888         
8 8888     `88  :88888.        8.`8888.   Y8 ,8 8888       `8.      :88888.        8 8888         
8 8888     ,88 . `88888.       `8.`8888.     88 8888               . `88888.       8 8888         
8 8888.   ,88'.8. `88888.       `8.`8888.    88 8888              .8. `88888.      8 8888         
8 888888888P'.8`8. `88888.       `8.`8888.   88 8888             .8`8. `88888.     8 8888         
8 8888      .8' `8. `88888.       `8.`8888.  88 8888            .8' `8. `88888.    8 8888         
8 8888     .8'   `8. `88888.  8b   `8.`8888. `8 8888       .8' .8'   `8. `88888.   8 8888         
8 8888    .888888888. `88888. `8b.  ;8.`8888    8888     ,88' .888888888. `88888.  8 8888         
8 8888   .8'       `8. `88888. `Y8888P ,88P'     `8888888P'  .8'       `8. `88888. 8 888888888888 
 
 
 ______                          __ 
|   __ \.---.-.-----.----.---.-.|  |
|    __/|  _  |__ --|  __|  _  ||  |
|___|   |___._|_____|____|___._||__|
                                    
 
 
8888888b.                                     888 
888   Y88b                                    888 
888    888                                    888 
888   d88P 8888b.  .d8888b   .d8888b  8888b.  888 
8888888P"     "88b 88K      d88P"        "88b 888 
888       .d888888 "Y8888b. 888      .d888888 888 
888       888  888      X88 Y88b.    888  888 888 
888       "Y888888  88888P'  "Y8888P "Y888888 888 
                                                  
                                                  
 
______                   _ 
| ___ \                 | |
| |_/ /_ _ ___  ___ __ _| |
|  __/ _` / __|/ __/ _` | |
| | | (_| \__ \ (_| (_| | |
\_|  \__,_|___/\___\__,_|_|
                           
                     
 
 ______   ______   ______   ______  ______   _       
| |  | \ | |  | | / |      | |     | |  | | | |      
| |__|_/ | |__| | '------. | |     | |__| | | |   _  
|_|      |_|  |_|  ____|_/ |_|____ |_|  |_| |_|__|_| 
                                                     
 
 
                         
 _____                 _ 
|  _  |___ ___ ___ ___| |
|   __| .'|_ -|  _| .'| |
|__|  |__,|___|___|__,|_|
                                                                                 
 

@lainz
+1

Title: Re: An ASCII logo for Pascal language
Post by: Fred vS on March 22, 2023, 03:02:40 pm

Quote from: lainz on March 22, 2023, 02:24:12 pm

Code: Pascal [Select][+][-]
___________________________________________
\_ _____/\______ \_ _____/\_ _____/
| __) | _/| __)_ | __)_
| \ | | \| \ | \
\___ / |____|_ /_______ //_______ /
\/ \/ \/ \/
__________ _____ __________________ _____ .____
\______ \/ _ \ / _____/\_ ___ \ / _ \ | |
| ___/ /_\ \ \_____ \ / \ \/ / /_\ \| |
| | / | \/ \\ \____/ | \ |___
|____| \____|__ /_______ / \______ /\____|__ /_______ \
\/ \/ \/ \/ \/

Nice!

From your idea, more "logo" look:

Code: Bash [Select][+]

__________  _____    _________
\______   \/  _  \  /   _____/
 |     ___/  /_\  \ \_____  \
 |    |  /    |    \/        \
 |____|  \____|__  /_______  / 
                 \/        \/

Title: Re: An ASCII logo for Pascal language
Post by: KodeZwerg on March 22, 2023, 03:08:25 pm

Code: [Select]

█████╗  ████╗ █████╗ ████╗ ████╗ ██╗
██╔═██╗██╔═██╗██╔══╝██╔══╝██╔═██╗██║
█████╔╝██████║█████╗██║   ██████║██║
██╔══╝ ██╔═██║╚══██║██║   ██╔═██║██║
██║    ██║ ██║█████║╚████╗██║ ██║█████╗
╚═╝    ╚═╝ ╚═╝╚════╝ ╚═══╝╚═╝ ╚═╝╚════╝

Title: Re: An ASCII logo for Pascal language
Post by: Fred vS on March 22, 2023, 03:18:39 pm

Quote from: avra on March 22, 2023, 02:58:36 pm

Code: Pascal [Select][+][-]

_/_/_/ _/_/ _/_/_/ _/_/_/ _/_/ _/
_/ _/ _/ _/ _/ _/ _/ _/ _/
_/_/_/ _/_/_/_/ _/_/ _/ _/_/_/_/ _/
_/ _/ _/ _/ _/ _/ _/ _/
_/ _/ _/ _/_/_/ _/_/_/ _/ _/ _/_/_/_/

____ ___ _____ _________ __
/ __ \/ | / ___// ____/ | / /
/ /_/ / /| | \__ \/ / / /| | / /
/ ____/ ___ |___/ / /___/ ___ |/ /___
/_/ /_/ |_/____/\____/_/ |_/_____/

____ _ ____ ____ _ _
| _ \ / \ / ___| / ___| / \ | |
| |_) / _ \ \___ \| | / _ \ | |
| __/ ___ \ ___) | |___ / ___ \| |___
|_| /_/ \_\____/ \____/_/ \_\_____|

_
_ __ __ _ ___ ___ __ _| |
| '_ \ / _` / __|/ __/ _` | |
| |_) | (_| \__ \ (_| (_| | |
| .__/ \__,_|___/\___\__,_|_|
|_|

__________ .__
\______ \____ ______ ____ _____ | |
| ___/\__ \ / ___/_/ ___\ \__ \ | |
| | / __ \_ \___ \ \ \___ / __ \_| |__
|____| (____ //____ > \___ >(____ /|____/
\/ \/ \/ \/

██████╗ █████╗ ███████╗ ██████╗ █████╗ ██╗
██╔══██╗██╔══██╗██╔════╝██╔════╝██╔══██╗██║
██████╔╝███████║███████╗██║ ███████║██║
██╔═══╝ ██╔══██║╚════██║██║ ██╔══██║██║
██║ ██║ ██║███████║╚██████╗██║ ██║███████╗
╚═╝ ╚═╝ ╚═╝╚══════╝ ╚═════╝╚═╝ ╚═╝╚══════╝

8 888888888o .8. d888888o. ,o888888o. .8. 8 8888
8 8888 `88. .888. .`8888:' `88. 8888 `88. .888. 8 8888
8 8888 `88 :88888. 8.`8888. Y8 ,8 8888 `8. :88888. 8 8888
8 8888 ,88 . `88888. `8.`8888. 88 8888 . `88888. 8 8888
8 8888. ,88'.8. `88888. `8.`8888. 88 8888 .8. `88888. 8 8888
8 888888888P'.8`8. `88888. `8.`8888. 88 8888 .8`8. `88888. 8 8888
8 8888 .8' `8. `88888. `8.`8888. 88 8888 .8' `8. `88888. 8 8888
8 8888 .8' `8. `88888. 8b `8.`8888. `8 8888 .8' .8' `8. `88888. 8 8888
8 8888 .888888888. `88888. `8b. ;8.`8888 8888 ,88' .888888888. `88888. 8 8888
8 8888 .8' `8. `88888. `Y8888P ,88P' `8888888P' .8' `8. `88888. 8 888888888888

______ __
| __ \.---.-.-----.----.---.-.| |
| __/| _ |__ --| __| _ || |
|___| |___._|_____|____|___._||__|

8888888b. 888
888 Y88b 888
888 888 888
888 d88P 8888b. .d8888b .d8888b 8888b. 888
8888888P" "88b 88K d88P" "88b 888
888 .d888888 "Y8888b. 888 .d888888 888
888 888 888 X88 Y88b. 888 888 888
888 "Y888888 88888P' "Y8888P "Y888888 888

______ _
| ___ \ | |
| |_/ /_ _ ___ ___ __ _| |
| __/ _` / __|/ __/ _` | |
| | | (_| \__ \ (_| (_| | |
\_| \__,_|___/\___\__,_|_|

______ ______ ______ ______ ______ _
| | | \ | | | | / | | | | | | | | |
| |__|_/ | |__| | '------. | | | |__| | | | _
|_| |_| |_| ____|_/ |_|____ |_| |_| |_|__|_|

_____ _
| _ |___ ___ ___ ___| |
| __| .'|_ -| _| .'| |
|__| |__,|___|___|__,|_|

@lainz
+1

WoW!

Huh, how did you do for the colors (in the forum-site)?

(Personally I like the colors used by fpide (see picture))

Title: Re: An ASCII logo for Pascal language
Post by: Fred vS on March 22, 2023, 04:01:14 pm

Quote from: Roland57 on March 22, 2023, 08:09:51 am

Some examples on this page (https://onefetch.dev).

Hello Roland!

There are some very WOW examples there :o !
Pascal logo must be at this level, minimum.

Title: Re: An ASCII logo for Pascal language
Post by: Roland57 on March 22, 2023, 04:26:00 pm

Quote from: Fred vS on March 22, 2023, 04:01:14 pm

There are some very WOW examples there :o !

Yes. :)

Quote from: Fred vS on March 22, 2023, 04:01:14 pm

Pascal logo must be at this level, minimum.

I submitted (https://github.com/o2sh/onefetch/issues/872#issuecomment-1479760713) the proposition by KodeZwerg, in blue and white. I hope it will look nice. ;)

Thank you all for your very nice contributions.

Title: Re: An ASCII logo for Pascal language
Post by: Fred vS on March 22, 2023, 04:35:28 pm

Quote from: Roland57 on March 22, 2023, 04:26:00 pm

Quote from: Fred vS on March 22, 2023, 04:01:14 pm
There are some very WOW examples there :o !

Yes. :)

Quote from: Fred vS on March 22, 2023, 04:01:14 pm
Pascal logo must be at this level, minimum.

I submitted (https://github.com/o2sh/onefetch/issues/872#issuecomment-1479760713) the proposition by KodeZwerg, in blue and white. I hope it will look nice. ;)

Thank you all for your very nice contributions.

Hello Roland.
Nice choice and thanks for adding Pascal in the game.

By the way, It seems that the Pascal language does not have his own logo yet.

All the search I have done only gives some adaptation of the "Pascal" or "Pas" words.

So it is time to find one.

Maybe a base could be the triangle or pyramid ?:
https://en.wikipedia.org/wiki/Pascal%27s_pyramid

Title: Re: An ASCII logo for Pascal language
Post by: Roland57 on March 22, 2023, 04:43:01 pm

Quote from: Fred vS on March 22, 2023, 04:35:28 pm

So it is time to find one.

Yes, good idea.

Quote from: Fred vS on March 22, 2023, 04:35:28 pm

Maybe a base could be the triangle or pyramid ?

Why not. I have had the same idea.

Title: Re: An ASCII logo for Pascal language
Post by: Thaddy on March 22, 2023, 06:00:30 pm

Reminds me of the days I had the roflcopter as a command prompt, or Bart Simpson...

Title: Re: An ASCII logo for Pascal language
Post by: Roland57 on March 22, 2023, 06:29:40 pm

So, here is how it looks.

If you can't wait to try it, you can clone my fork (https://github.com/rchastain/onefetch). ;)

Title: Re: An ASCII logo for Pascal language
Post by: Blaazen on March 22, 2023, 06:42:06 pm

FPC has command line option -l (small L) which states: write logo, but does nothing. :(

Title: Re: An ASCII logo for Pascal language
Post by: Roland57 on March 22, 2023, 07:03:57 pm

Quote from: Blaazen on March 22, 2023, 06:42:06 pm

FPC has command line option -l (small L) which states: write logo, but does nothing. :(

I never understood what that options does. :-[

Title: Re: An ASCII logo for Pascal language
Post by: Fred vS on March 22, 2023, 10:17:56 pm

Quote from: Roland57 on March 22, 2023, 04:43:01 pm

Quote from: Fred vS on March 22, 2023, 04:35:28 pm
Maybe a base could be the triangle or pyramid ?

Why not. I have had the same idea.

Pascal's Tetrahedron.

Code: Bash [Select][+]

 P  PASCALPASCALPASCALPASCALPA  P
  PAS  PASCALPASCALPASCALPA  PAS
   PASCA  PASCALPASCALPA  PASCA
    PASCALP  PASCALPA  PASCALP
     PASCALPAS  PA  PASCALPAS
      PASCALPASC  PASCALPASC
       PASCALPAS  PASCALPAS
        PASCALPA  PASCALPA
         PASCALP  PASCALP
          PASCAL  PASCAL
           PASCA  PASCA
            PASC  PASC
             PAS  PAS
              PA  PA
               P  P

Title: Re: An ASCII logo for Pascal language
Post by: domasz on March 22, 2023, 10:53:50 pm

Quote from: Fred vS on March 22, 2023, 10:17:56 pm

Pascal's Tetrahedron.

Title: Re: An ASCII logo for Pascal language
Post by: af0815 on March 23, 2023, 07:38:41 am

For me, the pascal triangle is not a symbol for the language pascal. My brain will not combine the two.

The soloution from Roland57 look better.

my 2 cents

Title: Re: An ASCII logo for Pascal language
Post by: Ñuño_Martínez on March 23, 2023, 11:12:27 am

I like the ones with the word Pascal drawn with blocks and lines. The icons looks messy and blurry.

Also, the simpler the better. :)

[edit]
My Allegro.pas library includes a bit of ASCIIart, but it was borrowed from the original Allegro:

Code: [Select]

  ______   ___    ___
/\  _  \ /\_ \  /\_ \
\ \ \L\ \\//\ \ \//\ \      __     __   _ __   ___        __    ___      ____
 \ \  __ \ \ \ \  \ \ \   /'__`\ /'_ `\/\`'__\/ __`\    /'__`\ /\__`\  /'___/
  \ \ \/\ \ \_\ \_ \_\ \_/\  __//\ \L\ \ \ \//\ \L\ \__/\ \L\ \\/ __ \/\____`\
   \ \_\ \_\/\____\/\____\ \____\ \____ \ \_\\ \____/\_\ \  __//\____/\/\____/
    \/_/\/_/\/____/\/____/\/____/\/___L\ \/_/ \/___/\/_/\ \ \/ \/___/  \/___/
                                   /\____/               \ \_\
     Version 4.4.5                 \_/__/                 \/_/

Title: Re: An ASCII logo for Pascal language
Post by: Fred vS on March 23, 2023, 12:51:02 pm

Quote from: af0815 on March 23, 2023, 07:38:41 am

For me, the pascal triangle is not a symbol for the language pascal. My brain will not combine the two.

The soloution from Roland57 look better.

my 2 cents

Imho when we are talking about "logo" we talk about something abstract and of course maybe not evident for each brain.
For example a camel for Perl, a bird for Swift, etc....

Look at all the examples of https://onefetch.dev/ each language has his own logo.

And using only the word "Pascal", even with ascii art, shows, in my opinion, poor creativity of the language.

But yes, using only the word "Pascal" is more easy and dont need much work for each brain.

My 3 cents.

Title: Re: An ASCII logo for Pascal language
Post by: KodeZwerg on March 23, 2023, 01:06:38 pm

Quote from: Roland57 on March 22, 2023, 04:26:00 pm

I submitted (https://github.com/o2sh/onefetch/issues/872#issuecomment-1479760713) the proposition by KodeZwerg, in blue and white. I hope it will look nice. ;)

You are welcomed.

Quote from: Fred vS on March 23, 2023, 12:51:02 pm

And using only the word "Pascal", even with ascii art, shows, in my opinion, poor creativity of the language.

I was more looking how others are doing, exemplary @ VisualStudio (https://marketplace.visualstudio.com/items?itemName=alefragnani.pascal).
In my opinion, each Pascal variation has it's own custom logo so what could unite all together better than a simple plain written word?
You can of course prefer a "△▽◬◭◮◸◹◺◿" however it might look like, everyone got it's own taste and that has nothing to do with poor creativity.

Title: Re: An ASCII logo for Pascal language
Post by: Fred vS on March 23, 2023, 01:33:56 pm

Quote from: KodeZwerg on March 23, 2023, 01:06:38 pm

.. that has nothing to do with poor creativity.

OK, so it's about fear of creating something abstract.
But okay, I will forget the idea of Pascal Triangle or something else, it is too abstract for Pascal developers.

PS: Your Pascal ascii is very great (but it is not pure ascii art, it dont use "classical" ascii chars).

Fre;D

Title: Re: An ASCII logo for Pascal language
Post by: af0815 on March 23, 2023, 02:14:00 pm

To see actual logos an banner, here is a wiki page https://wiki.freepascal.org/Logos_and_Banners
I see for fpc and lazarus the are some icons and banners, but not for the language pascal itself.

Title: Re: An ASCII logo for Pascal language
Post by: Roland57 on March 23, 2023, 02:31:48 pm

Let us keep cool gentlemen. All ideas are welcome. O:-)

Something funny I have just discovered by reading a document about Pascal triangle. What happens if we assign two different colors respectively to even and odd numbers of the triangle? Anwer in the following program.

Title: Re: An ASCII logo for Pascal language
Post by: Fred vS on March 23, 2023, 03:09:20 pm

Quote from: Roland57 on March 23, 2023, 02:31:48 pm

Anwer in the following program.

Wow!
For Linux users, you may need to install libxxf86dga-dev package.

Code: Bash [Select][+]

sudo apt-get install libxxf86dga-dev

About "Pascal", in my case, I discover this name at college-math-lesson because of his triangle and the Pascal language (much) later.

Title: Re: An ASCII logo for Pascal language
Post by: Fred vS on March 23, 2023, 03:34:59 pm

There is also the Pascal Theorem that can give some abstract ideas ;) :
https://en.wikipedia.org/wiki/Pascal%27s_theorem

It was formulated by Blaise Pascal in a note written in 1639 when he was 16 years old.

( I like the Hexagrammum Mysticum. :-X )

Title: Re: An ASCII logo for Pascal language
Post by: Kays on March 23, 2023, 09:55:44 pm

Quote from: Roland57 on March 22, 2023, 07:03:57 pm

Quote from: Blaazen on March 22, 2023, 06:42:06 pm
FPC has command line option -l (small L) which states: write logo, but does nothing. :(
I never understood what that options does. :-[

The ‑l option has been subject of the FPC logo (https://forum.lazarus.freepascal.org/index.php/topic,50320.msg366967.html) thread.

Quote from: af0815 on March 22, 2023, 10:18:45 am

A simplified ASCII picture of Blaise Pascal will a good idea, but the question is, is the picture free for such a using.

This is imaginably a poor idea as a picture of Blaise Pascal is already associated with the GNU Pascal Compiler (https://www.GNU-Pascal.de/). Well, it’s a combination of a gnu and BP.

Title: Re: An ASCII logo for Pascal language
Post by: Fred vS on March 23, 2023, 10:47:15 pm

Quote from: Kays on March 23, 2023, 09:55:44 pm

Quote from: af0815 on March 22, 2023, 10:18:45 am
A simplified ASCII picture of Blaise Pascal will a good idea, but the question is, is the picture free for such a using.
This is imaginably a poor idea as a picture of Blaise Pascal is already associated with the GNU Pascal Compiler (https://www.GNU-Pascal.de/).

Also, a picture of the appearance of the head of Blaise is ok for a compiler, but for the Language I would prefer a picture of something inside the head of Blaise.
Like a representation of one of his theorems or concepts.

Title: Re: An ASCII logo for Pascal language
Post by: Roland57 on March 24, 2023, 06:54:35 am

Quote from: Kays on March 23, 2023, 09:55:44 pm

The ‑l option has been subject of the FPC logo (https://forum.lazarus.freepascal.org/index.php/topic,50320.msg366967.html) thread.

Thanks.

Quote from: Fred vS on March 23, 2023, 03:09:20 pm

Wow!

I remade my little demo (https://forum.lazarus.freepascal.org/index.php/topic,62777.msg475019.html#msg475019), using BGRABitmap.

P.-S. ~~For Windows users, please uncheck -WG in project options.~~

Demo updated.

Title: Re: An ASCII logo for Pascal language
Post by: Fred vS on March 24, 2023, 01:07:01 pm

Quote from: Roland57 on March 24, 2023, 06:54:35 am

I remade my little demo (https://forum.lazarus.freepascal.org/index.php/topic,62777.msg475019.html#msg475019), using BGRABitmap.

Hello Roland.

~~I get a error at compilation, see screenshot.~~
[FIXED]

Re-WOW, congrats ;).

Fre;D

Title: Re: An ASCII logo for Pascal language
Post by: avra on March 26, 2023, 03:44:07 am

Quote from: Fred vS on March 22, 2023, 03:18:39 pm

Huh, how did you do for the colors (in the forum-site)?

Thats an effect of using forum's pascal code color highlighting. Colors would be different if I had chosen some other language.
:D

Title: Re: An ASCII logo for Pascal language
Post by: BobDog on March 27, 2023, 01:15:22 am

Here is the full Pascal hexagon from:
https://en.wikipedia.org/wiki/Pascal%27s_theorem

Code: Pascal [Select][+]

{$mode fpc}
uses
ptcGraph, ptcCrt,
  SysUtils,math;
  
  
Type Point=object
x,y:double;
End;
 
Type _Line=object
    s,f:point;
End;
 
type aol=array of _Line;
type aop=array of point;
 
function equals(a,b:point;tol:double):boolean;
var
z:boolean=false;
begin
if (abs(a.x-b.x)<tol) and (abs(a.y-b.y)<tol) then z:=true;// -1
exit(z);
end;
 
procedure draw(L:_Line);
begin
line(trunc(L.s.x),trunc(L.s.y),trunc(L.f.x),trunc(L.f.y));
end;
 
 
Function isleft(L:_Line;p:point):integer;
begin
    exit (-sign((L.s.x-L.f.x)*(p.y-L.f.y)-(p.x-L.f.x)*(L.s.y-L.f.y)));
End;
 
Function intersects(L1:_Line;L2:_Line):boolean;
begin
    If (isleft(L2,L1.s) = isleft(L2,L1.f)) Then exit (false); 
    If (isleft(L1,L2.s) = isleft(L1,L2.f)) Then exit (false);
    exit(true);
End;
 
 
function intersections(l1:_Line;l2:_Line;var _out:point):boolean;
var
p1,p2,p3,p4:point;
x12,x34,y12,y34:single;
 c:single;
 a,b,x,y:single;
 begin
 p1:=l1.s;p2:=l1.f;p3:=l2.s;p4:=l2.f;
 x12:=p1.x-p2.x;x34:=p3.x-p4.x;y12:=p1.y-p2.y;y34:=p3.y-p4.y;
 c:=x12 * y34 - y12 * x34;
if (abs(c) < 0.01) then exit(false);
  a := p1.x * p2.y - p1.y * p2.x;
  b := p3.x * p4.y - p3.y * p4.x;
  x := (a * x34 - b * x12) / c;
  y := (a * y34 - b * y12) / c;
  _out.x:=x;
  _out.y:=y;
  exit(true)
end;
 
procedure ellipse(x,y:integer;rx:double;ry:double;var a:aop);
    const pi=4*arctan(1);
    var
    counter:int32;
    z:double=0;
    xp,yp:double;
    begin
    counter:=0;
    repeat
        xp:=x+rx*cos(z);
         yp:=y+ry*sin(z);
        counter:=counter+1;
        setlength(a,counter);
        a[counter-1].x:=xp;
        a[counter-1].y:=yp;
       putpixel(trunc(xp), trunc(yp),white);
       z:=z+0.05;
        until (z>2*pi);
    end;
    
    procedure setlines(a:aop;var ret:aop);
    var
    k,n,n1,n2,flag,m:integer;
    b:aop=nil;
    l:aol=nil;
     _out:point;
     centre:point;
    begin
    setcolor(blue);
    centre.x:=400;
    centre.y:=300;
    _out.x:=0;
    _out.y:=0;
    setlength(b,6);
    k:=10;
    for n :=0 to 5 do
    begin
        b[n]:=a[k];
      fillellipse(trunc(a[k].x),trunc(a[k].y),4,4);
    k:=k+high(a) div 6;
     end;
     k:=0;
     for n1 :=0 to 4 do
     begin
     for n2 :=n1+1 to 5 do
     begin
        k:=k+1;
        setlength(l,k);
        L[k-1].s:=b[n1];
        L[k-1].f:=b[n2];
    end;
    end;
    k:=0;
     for n1 :=0 to high(l)-1 do
     begin
     for n2 :=n1+1 to high(l) do
     begin
     flag:=0;
      if (intersects(L[n1],L[n2])) then
      begin
       intersections(L[n1],L[n2],_out);
          flag:=1;
          
          for m :=0 to high(b) do
          begin
       if equals(_out,b[m],2) then
        begin
        flag:=0;
        break;
            end;  
        end;
      end;
    
     if (flag=1) then  
      begin
      draw(L[n1]);
      draw(l[n2]);
      if equals(_out,centre,40)=false then
      begin
      k:=k+1;
      setlength(ret,k);
      ret[k-1]:=_out;
       setcolor(white);
      fillellipse(trunc(_out.x), trunc(_out.y),2,2);
      setcolor(blue);
      end;
      end; 
      end;
      end;
    end;
    
  
    procedure circulate(var p:aop);
       procedure swap(var a, b: point);
      var temp: point;
     begin
     temp := a; a := b; b := temp;
     end;
    
    var
    p1,p2:integer;
    c:point;
    begin
    c.x:=400;
    c.y:=300;
For p1 := 0 To high(p)-1 do
begin
    For p2 := p1 + 1 To high(p) do
    begin
        if arctan2(p[p1].y-c.y,p[p1].x-c.x)< arctan2(p[p2].y-c.y,p[p2].x-c.x) then
        begin
            swap (p[p1],p[p2]);
            end;
         end;
         end;
end;
 
    
    procedure drawpascallines(ret:aop);
    var
    n:integer;
    begin
    circulate(ret);
    for n:=0 to high(ret)-1 do
    line(trunc(ret[n].x),trunc(ret[n].y),trunc(ret[n+1].x),trunc(ret[n+1].y));
    line(trunc(ret[high(ret)].x),trunc(ret[high(ret)].y),trunc(ret[0].x),trunc(ret[0].y));
    end;
    
//main//
var
 a:aop=nil;
 ret:aop=nil;
 gd, gm: SmallInt;
 ch:char;
begin
{==========  set up graph =========}
      gd := D8bit;
      gm :=  m800x600;
      InitGraph(gd, gm, '');
      if GraphResult <> grok then  halt;
      setbkcolor(black);
      settextstyle(BoldFont,HorizDir,1);
      setwritemode(copyput);
      repeat
      ClearViewPort;
      setcolor(white);
      outtextxy(10,10,'Pascal hexagon demo');
      outtextxy(10,40,'Space key to refresh -- esc key to end.');
      ellipse(400,300,randomrange(100,300),randomrange(100,300),a);
      
      setlines(a,ret);
      setcolor(red);
      drawpascallines(ret);
      ch:=readkey; 
      sleep(10);
      until (ord(ch)= 27);
      
     closegraph; 
end.
 

The hexagon is coloured red within the ellipse.
tested Win 10 64 bits.

Title: Re: An ASCII logo for Pascal language
Post by: Fred vS on March 27, 2023, 01:36:09 am

Quote from: BobDog on March 27, 2023, 01:15:22 am

Here is the full Pascal hexagon from:
https://en.wikipedia.org/wiki/Pascal%27s_theorem
Code: Pascal [Select][+][-]
{$mode fpc}
uses
ptcGraph, ptcCrt,
SysUtils,math;

Type Point=object
x,y:double;
End;

Type _Line=object
s,f:point;
End;

type aol=array of _Line;
type aop=array of point;

function equals(a,b:point;tol:double):boolean;
var
z:boolean=false;
begin
if (abs(a.x-b.x)<tol) and (abs(a.y-b.y)<tol) then z:=true;// -1
exit(z);
end;

procedure draw(L:_Line);
begin
line(trunc(L.s.x),trunc(L.s.y),trunc(L.f.x),trunc(L.f.y));
end;

Function isleft(L:_Line;p:point):integer;
begin
exit (-sign((L.s.x-L.f.x)*(p.y-L.f.y)-(p.x-L.f.x)*(L.s.y-L.f.y)));
End;

Function intersects(L1:_Line;L2:_Line):boolean;
begin
If (isleft(L2,L1.s) = isleft(L2,L1.f)) Then exit (false);
If (isleft(L1,L2.s) = isleft(L1,L2.f)) Then exit (false);
exit(true);
End;

function intersections(l1:_Line;l2:_Line;var _out:point):boolean;
var
p1,p2,p3,p4:point;
x12,x34,y12,y34:single;
c:single;
a,b,x,y:single;
begin
p1:=l1.s;p2:=l1.f;p3:=l2.s;p4:=l2.f;
x12:=p1.x-p2.x;x34:=p3.x-p4.x;y12:=p1.y-p2.y;y34:=p3.y-p4.y;
c:=x12 * y34 - y12 * x34;
if (abs(c) < 0.01) then exit(false);
a := p1.x * p2.y - p1.y * p2.x;
b := p3.x * p4.y - p3.y * p4.x;
x := (a * x34 - b * x12) / c;
y := (a * y34 - b * y12) / c;
_out.x:=x;
_out.y:=y;
exit(true)
end;

procedure ellipse(x,y:integer;rx:double;ry:double;var a:aop);
const pi=4*arctan(1);
var
counter:int32;
z:double=0;
xp,yp:double;
begin
counter:=0;
repeat
xp:=x+rx*cos(z);
yp:=y+ry*sin(z);
counter:=counter+1;
setlength(a,counter);
a[counter-1].x:=xp;
a[counter-1].y:=yp;
putpixel(trunc(xp), trunc(yp),white);
z:=z+0.05;
until (z>2*pi);
end;

procedure setlines(a:aop;var ret:aop);
var
k,n,n1,n2,flag,m:integer;
b:aop=nil;
l:aol=nil;
_out:point;
centre:point;
begin
setcolor(blue);
centre.x:=400;
centre.y:=300;
_out.x:=0;
_out.y:=0;
setlength(b,6);
k:=10;
for n :=0 to 5 do
begin
b[n]:=a[k];
fillellipse(trunc(a[k].x),trunc(a[k].y),4,4);
k:=k+high(a) div 6;
end;
k:=0;
for n1 :=0 to 4 do
begin
for n2 :=n1+1 to 5 do
begin
k:=k+1;
setlength(l,k);
L[k-1].s:=b[n1];
L[k-1].f:=b[n2];
end;
end;
k:=0;
for n1 :=0 to high(l)-1 do
begin
for n2 :=n1+1 to high(l) do
begin
flag:=0;
if (intersects(L[n1],L[n2])) then
begin
intersections(L[n1],L[n2],_out);
flag:=1;

for m :=0 to high(b) do
begin
if equals(_out,b[m],2) then
begin
flag:=0;
break;
end;
end;
end;

if (flag=1) then
begin
draw(L[n1]);
draw(l[n2]);
if equals(_out,centre,40)=false then
begin
k:=k+1;
setlength(ret,k);
ret[k-1]:=_out;
setcolor(white);
fillellipse(trunc(_out.x), trunc(_out.y),2,2);
setcolor(blue);
end;
end;
end;
end;
end;

procedure circulate(var p:aop);
procedure swap(var a, b: point);
var temp: point;
begin
temp := a; a := b; b := temp;
end;

var
p1,p2:integer;
c:point;
begin
c.x:=400;
c.y:=300;
For p1 := 0 To high(p)-1 do
begin
For p2 := p1 + 1 To high(p) do
begin
if arctan2(p[p1].y-c.y,p[p1].x-c.x)< arctan2(p[p2].y-c.y,p[p2].x-c.x) then
begin
swap (p[p1],p[p2]);
end;
end;
end;
end;

procedure drawpascallines(ret:aop);
var
n:integer;
begin
circulate(ret);
for n:=0 to high(ret)-1 do
line(trunc(ret[n].x),trunc(ret[n].y),trunc(ret[n+1].x),trunc(ret[n+1].y));
line(trunc(ret[high(ret)].x),trunc(ret[high(ret)].y),trunc(ret[0].x),trunc(ret[0].y));
end;

//main//
var
a:aop=nil;
ret:aop=nil;
gd, gm: SmallInt;
ch:char;
begin
{========== set up graph =========}
gd := D8bit;
gm := m800x600;
InitGraph(gd, gm, '');
if GraphResult <> grok then halt;
setbkcolor(black);
settextstyle(BoldFont,HorizDir,1);
setwritemode(copyput);
repeat
ClearViewPort;
setcolor(white);
outtextxy(10,10,'Pascal hexagon demo');
outtextxy(10,40,'Space key to refresh -- esc key to end.');
ellipse(400,300,randomrange(100,300),randomrange(100,300),a);

setlines(a,ret);
setcolor(red);
drawpascallines(ret);
ch:=readkey;
sleep(10);
until (ord(ch)= 27);

closegraph;
end.

The hexagon is coloured red within the ellipse.
tested Win 10 64 bits.

Super WOW, congrats :).

To make it work for Unix OS, just add as first line of uses section this:

Code: Pascal [Select][+]

 uses
    {$ifdef unix} cthreads, {$endif} // Add this
  
    ptcGraph, ptcCrt,
      SysUtils,math;

[EDIT]: In your demo it is the Pascal Hexagram ( but it can become a Hexagon when all lines have same angle )

https://en.wikipedia.org/wiki/Hexagram
vs
https://en.wikipedia.org/wiki/Hexagon

[EDIT2] The original name of the theorem is: hexagrammum mysticum theorem.
So, be careful when tuning with this formula. :-X

Title: Re: An ASCII logo for Pascal language
Post by: Roland57 on March 27, 2023, 05:53:56 am

@BobDog

Beautiful!

@Fred

Thank you for the links. I didn't know the definition of the hexagram.

Title: Re: An ASCII logo for Pascal language
Post by: mika on March 27, 2023, 11:38:05 am

I was randomly browsing and stumble on this Pascal logo. It does look great in comparison with other programing language logos.

Title: Re: An ASCII logo for Pascal language
Post by: Fred vS on March 27, 2023, 12:10:04 pm

Quote from: mika on March 27, 2023, 11:38:05 am

I was randomly browsing and stumble on this Pascal logo. It does look great in comparison with other programing language logos.

Nice but the Pascal logo is in fact the fpc logo, not the Pascal language logo.

Title: Re: An ASCII logo for Pascal language
Post by: mika on March 27, 2023, 01:19:29 pm

Quote from: Fred vS on March 27, 2023, 12:10:04 pm

Nice but the Pascal logo is in fact the fpc logo, not the Pascal language logo.

That's my point. Fpc logo should became Pascal language logo from now on.
Are you able to answer to question "what Pascal language is?". No! I will tell you exactly what Pascal language is to day - it is Free Pascal.

Title: Re: An ASCII logo for Pascal language
Post by: Fred vS on March 27, 2023, 01:32:32 pm

Quote from: mika on March 27, 2023, 01:19:29 pm

Quote from: Fred vS on March 27, 2023, 12:10:04 pm
Nice but the Pascal logo is in fact the fpc logo, not the Pascal language logo.

That's my point. Fpc logo should became Pascal language logo from now on.
Are you able to answer to question "what Pascal language is?". No! I will tell you exactly what Pascal language is to day - it is Free Pascal.

Free Pascal is a compiler not a language.

Title: Re: An ASCII logo for Pascal language
Post by: mika on March 27, 2023, 02:25:29 pm

Quote from: Fred vS on March 27, 2023, 01:32:32 pm

Quote from: mika on March 27, 2023, 01:19:29 pm
Quote from: Fred vS on March 27, 2023, 12:10:04 pm
Nice but the Pascal logo is in fact the fpc logo, not the Pascal language logo.

That's my point. Fpc logo should became Pascal language logo from now on.
Are you able to answer to question "what Pascal language is?". No! I will tell you exactly what Pascal language is to day - it is Free Pascal.

Free Pascal is a compiler not a language.

There is no compiler without language. Even in general opposite is true, but not for Pascal. Pascal is whatever implementation of Pascal is in Free Pascal compiler.

Title: Re: An ASCII logo for Pascal language
Post by: Fred vS on March 27, 2023, 02:43:05 pm

Quote from: mika on March 27, 2023, 02:25:29 pm

Quote from: Fred vS on March 27, 2023, 01:32:32 pm
Quote from: mika on March 27, 2023, 01:19:29 pm
Quote from: Fred vS on March 27, 2023, 12:10:04 pm
Nice but the Pascal logo is in fact the fpc logo, not the Pascal language logo.

That's my point. Fpc logo should became Pascal language logo from now on.
Are you able to answer to question "what Pascal language is?". No! I will tell you exactly what Pascal language is to day - it is Free Pascal.

Free Pascal is a compiler not a language.

There is no compiler without language. Even in general opposite is true, but not for Pascal. Pascal is whatever implementation of Pascal is in Free Pascal compiler.

If I may, Free Pascal compiler dont use exclusively Pascal language, it can deal also with Assembly (ASM), ... :-X

Title: Re: An ASCII logo for Pascal language
Post by: mika on March 27, 2023, 04:21:41 pm

@Fred vS Six points placed in regular distance on circle connected with six lines holds already well established associations. Meanwhile you are telling that no way Pascal language and compiler can have logos based on same animal? But Lazarus and Fpc can?

Title: Re: An ASCII logo for Pascal language
Post by: Fred vS on March 27, 2023, 05:31:12 pm

Quote from: mika on March 27, 2023, 04:21:41 pm

@Fred vS Six points placed in regular distance on circle connected with six lines holds already well established associations. Meanwhile you are telling that no way Pascal language and compiler can have logos based on same animal? But Lazarus and Fpc can?

Be cool my friend, no stress.

First "Six points placed in regular distance on circle connected with six lines" gives a hexagon, the Pascal Theorem is about a hexagram and the six points are not necessarily at same distance and the circle may be a ellipse ( and that's why it's mystical ).

In the Kays's link: https://forum.lazarus.freepascal.org/index.php/topic,62777.msg475053.html#msg475053

Quote from: PascalDragon on June 24, 2020, 11:11:46 am

Quote from: Kays on June 24, 2020, 11:03:53 am
While GPC had a sketch of a gnu and Blaise Pascal, I do not associate FPC with some specific graphic. Lazarus obviously has its leopard. And as far as I see Delphi has various logos.

It's a Cheetah and the Cheetah alone is FPC's logo (just look at the main page (https://www.freepascal.org/)). Lazarus has it on a Greek column to reference Delphi.

I will stop the discussion, it becomes boring, you dont get the difference between Compiler, IDE, Widgetset and Language.
( Think to the Delphi or GPC users that should agree that the logo of Pascal language is the FPC logo :-X )

Title: Re: An ASCII logo for Pascal language
Post by: PascalDragon on March 27, 2023, 11:25:39 pm

Quote from: mika on March 27, 2023, 02:25:29 pm

There is no compiler without language. Even in general opposite is true, but not for Pascal. Pascal is whatever implementation of Pascal is in Free Pascal compiler.

FPC supports multiple Pascal dialects: TP, Delphi, Mac Pascal, ISO Pascal and its own dialect. The cheetah thus is the logo of the compiler and not the language.

Title: Re: An ASCII logo for Pascal language
Post by: Fred vS on March 30, 2023, 01:44:14 am

Hello.

I did something that will be no more permitted for the next 6 months ( yes, it needs to take a break ).

I did ask it to ChatGPT ( yes, I know, it is bad :-[ )

Anyway, here are my questions and his answers:

Q: What is the logo of Pascal language?

A: Pascal, a high-level programming language developed by Niklaus Wirth in the late 1960s, does not have an official logo. However, various user groups and organizations have created their own logos and symbols to represent the language. One popular symbol used to represent Pascal is the image of a stylized, crowned lion, which is often associated with the ETH Zurich, the university where Wirth created the language. Other logos and symbols used to represent Pascal include the letters "P" or "Pas" in stylized fonts, as well as representations of various computer-related images such as a floppy disk, a computer chip, or a programming code.

Q: Create a logo for the Pascal language.

A: As an AI language model, I don't have the ability to create graphical images or logos, but I can suggest some ideas that might inspire a logo for Pascal language.

One idea could be to incorporate the stylized lion image that is often associated with ETH Zurich, where Pascal was created. The lion could be presented in a simplified and modern style to make it more recognizable and memorable.

Another idea could be to use the letter "P" in a unique and creative way, perhaps incorporating programming code or computer-related imagery into the design.

Another possibility could be to use a symbol or shape that represents some of the key concepts or features of the language, such as structured programming or strong typing.

Ultimately, the logo should be simple, memorable, and recognizable, and should capture the essence of Pascal as a powerful and versatile programming language.

Q: What about the representation of the hexagram theorem of Pascal?

A: Using the hexagram theorem of Pascal as inspiration for a logo for Pascal language is a great idea! The hexagram theorem is a geometrical theorem that is closely related to the Pascal's triangle, which is used in mathematics and computer science, and has a direct connection to the name of the language.

One possible logo design could be to incorporate the hexagram pattern from the theorem into the logo, with the lines of the hexagram forming the shape of a stylized "P" or the word "Pascal." This would create a visual representation of the connection between the hexagram theorem and the language.

Another idea could be to use a simplified version of the hexagram pattern as a design element, with the hexagram shapes arranged in a repeating pattern to create a unique and memorable visual representation of the language.

Overall, a logo based on the hexagram theorem of Pascal could be a powerful and effective way to represent the language, especially for those in the field of mathematics and computer science.

Q: Do you prefer a representation of the Pascal triangle or the Pascal hexagram?

A: As an AI language model, I don't have personal preferences. However, I can suggest that both the Pascal triangle and the Pascal hexagram are important mathematical concepts that are closely associated with Pascal language and could be used as inspiration for a logo design.

The Pascal triangle is a triangular array of numbers where each number is the sum of the two numbers above it. The triangle has many interesting properties and is widely used in mathematics, computer science, and other fields. A logo based on the Pascal triangle could incorporate the triangular shape and the numbers in a creative way to create a unique and recognizable design.

On the other hand, the Pascal hexagram is a geometrical theorem related to the Pascal triangle, and it is also closely associated with Pascal language. A logo based on the Pascal hexagram could use the hexagonal shape and the lines of the hexagram to create a unique and visually interesting design.

Ultimately, the choice between the two depends on the specific goals and aesthetic preferences of the designer. Both concepts have the potential to create a strong and memorable logo for Pascal language.

Q: Why Pascal hexagram theorem is called mystical?

A: The Pascal hexagram theorem is sometimes referred to as "mystical" because of the interesting and seemingly magical properties it exhibits. The theorem is a geometrical result that is closely related to Pascal's triangle, which is a well-known mathematical object used in combinatorics and number theory.

The theorem states that if a hexagon is inscribed in a conic section (such as an ellipse or a hyperbola), then the three pairs of opposite sides intersect at three points that are collinear (lie on a straight line). These three points can be found by drawing certain lines through the vertices of the hexagon and the conic section. The resulting line is called the Pascal line, and it passes through the three collinear points.

The properties of the hexagram theorem are considered mystical or magical because they seem to arise from purely geometrical considerations, without any apparent connection to other areas of mathematics. Additionally, the theorem has a rich history and has been studied and explored by many famous mathematicians, including Blaise Pascal, who is also the namesake of the Pascal programming language.

Despite its mystical reputation, the Pascal hexagram theorem is a fascinating and important result in geometry and mathematics, with many interesting applications and connections to other areas of study.

------------------------

Title: Re: An ASCII logo for Pascal language
Post by: KodeZwerg on March 30, 2023, 02:40:59 pm

AI is not listening to me :D

Title: Re: An ASCII logo for Pascal language
Post by: Fred vS on March 30, 2023, 02:49:58 pm

Quote from: KodeZwerg on March 30, 2023, 02:40:59 pm

AI is not listening to me :D

Yep, when AI try to be creative, he better be quiet.
Loooot of work before to compare with humans.

Title: Re: An ASCII logo for Pascal language
Post by: periclessyc on March 30, 2023, 03:20:12 pm

Here is my draft:

...ggMMMMMMMMMMNgg.,,
..gMMBB3+dW8+1ge+++?C+T0gMMNMMNa,
..M9T517YY=:.dH!.+,::?5:?d9!`..`dMNdb
.MM=:?j#5::TC::^::?T!:^:^:Jb.J,JN.jMF.@
dM::^:Yu&ggNCg,.JJ?5::^:^:JJ#`MMMMM@`.Mr
ME:+3:.M#SMD.?$?T8:^?Wm,::?=^JMMMM#`.dMMp
.#=::::JM9TY^..,::^:d:::?5:+J:JMMM#?3JMUMMMh.
.J5+;;+JM@!....:?:JJ^:JP^Je:^:?!?3?:.JdBzuXQdMN,
.#1?;;+?MN::::::^:dBWR:`4,?Ne:dt^:+XMM#OwXmXWM#MN,
.d5+???!:?MM2:^:^::^::::?.:O+?MN,.+,:?TY1dRd#NdMZdNMb
.M:::+J!:^:MMN+:^:^:dp:^^dMt::aJWb:d&+jgg+++?dM#OlTBUMk.
JMNNNM3^:.J?MMM$:^::?::jc.JJN:?9+?:?M#+MM:dNc++jgNMNMMMN,
4JM@!`!+;+:MMMNJ...:^^::dM@WM3J,:?NNJ=?;;dM:::?TGggZUOdN,
?mb.:??!!^jMNMMMM93^^:^:?!::JM#:+MM51dMN+:^:^.+?MIzzNsZMp
TbTHQgggMMB5iJgT777BN&J...:7=:::;;dTM#:::.dMt:+?M6vGdMMp
TQJ...Jg#Y^ ?MM5:.jM2^^JNMP::^?J.::^:MNp?vMMWMMp
` JN+w?9qMr^`T9::a:?T::^::?BC+?jzlltMp
?N?.^d4#.dNgg.?:,:^:Jm,::+ggz6dMmOMR
dR...dF^?=?T^^?Nf::?5:.,?TM8?zHBlMMb
,N...T!^dN,^.J.:^jb:^:d#?J::++??=ldMN.
M;..dr.`T!^JMM::?MNM:?!dMMD:++MNmsMMN.
ML`.Mr..J!^^?`^^:`?::J.,:::aJ++uvHNlMN.
db`.M@JD`..^^^^`3^^.J?Y!^.,?HI:?C?uelMN,
dN``d9.JMN..`M+^^^^?MN,::dMN+dN,+?7TMOHN,
dM.`.J`,=!....^^^j%^:^:+m+::::?B:++MR==dN,
dMr`7``````.`.``````````!`````````+zz?==dML

______ _____ _
| ____| | __ \ | |
| |__ _ __ ___ ___ | |__) | __ _ ___ ___ __ _ | |
| __| | '__| / _ \ / _ \ | ___/ / _` | / __| / __| / _` | | |
| | | | | __/ | __/ | | | (_| | \__ \ | (__ | (_| | | |
|_| |_| \___| \___| |_| \__,_| |___/ \___| \__,_| |_|

Title: Re: An ASCII logo for Pascal language
Post by: sketch on March 30, 2023, 03:50:22 pm

ChatGPT's ability for art is an understatement.

Title: Re: An ASCII logo for Pascal language
Post by: Blaazen on March 30, 2023, 05:03:54 pm

AI says:

Quote

One popular symbol used to represent Pascal is the image of a stylized, crowned lion, which is often associated with the ETH Zurich, the university where Wirth created the language.

I cannot find it. Is that logo somewhere online?

Title: Re: An ASCII logo for Pascal language
Post by: Fred vS on March 30, 2023, 05:13:57 pm

Quote from: Blaazen on March 30, 2023, 05:03:54 pm

AI says:
Quote
One popular symbol used to represent Pascal is the image of a stylized, crowned lion, which is often associated with the ETH Zurich, the university where Wirth created the language.

I cannot find it. Is that logo somewhere online?

https://ethz.ch/staffnet/en/service/communication/corporate-design/logo.html

AI has to shut up.

Title: Re: An ASCII logo for Pascal language
Post by: Blaazen on March 30, 2023, 05:24:46 pm

That's their modern logo. AI probably talks about early-eighties when there was no internet yet. Problem is that crowned lion is sooo popular and there are hundreds of projects / organizations using it.

Title: Re: An ASCII logo for Pascal language
Post by: Fred vS on March 30, 2023, 05:34:33 pm

Quote from: Blaazen on March 30, 2023, 05:24:46 pm

That's their modern logo. AI probably talks about early-eighties when there was no internet yet. Problem is that crowned lion is sooo popular and there are hundreds of projects / organizations using it.

Maybe there was a old logo with a Lion (but I have serious doubt about this).
And choosing a Lion is, like you said, so common ( and this animal is stupid and is absolutely not nice and eats his children, ... ).

AI must take a break.

[EDIT] Indeed, the coat of arms of the canton of Zurich uses lions:
https://fr.wikipedia.org/wiki/Drapeau_et_armoiries_du_canton_de_Zurich#/media/Fichier:Ch_zh_logo_kanton_rr.svg

But it is the canton, not the university of the town Zurich.

Title: Re: An ASCII logo for Pascal language
Post by: Fred vS on March 31, 2023, 05:06:20 pm

Quote from: Blaazen on March 30, 2023, 05:24:46 pm

That's their modern logo. AI probably talks about early-eighties when there was no internet yet. Problem is that crowned lion is sooo popular and there are hundreds of projects / organizations using it.

I came back to ChatGPT.

Q: You said the lion was used as logo for Pascal in reference of the ETH Zurich where Wirth invented the program. But i did not find something that can refer to a lion. Can you explain ?

A: I apologize for the confusion. After looking into it further, I cannot find any information that suggests the lion was used as a logo for Pascal in reference to the ETH Zurich where Wirth invented the language.

In fact, the original Pascal logo designed by Wirth himself in the 1970s did not feature a lion. It was a stylized letter "P" with the top half resembling a loop, and the bottom half resembling a stem. The design was simple and elegant, and was intended to reflect the simplicity and elegance of the Pascal language.

The lion logo you mentioned is often associated with the Free Pascal compiler, which is an open-source implementation of the Pascal language. The logo features a stylized lion head with a crown, and it is often used to represent the compiler and the Pascal language more generally.

I apologize for any confusion I may have caused, and I hope this clarifies things for you.

Q: Are you sure Free Pascal compiler logo is a lion ?

A: I apologize for the mistake in my previous response. The Free Pascal compiler logo does not actually feature a lion, but rather a stylized depiction of the ancient Egyptian god Anubis, who was often associated with mummification and the afterlife.

The logo depicts Anubis with a stylized head and headdress, surrounded by a circle. The design is intended to reflect the qualities of reliability, stability, and precision that are important in programming, and it has become closely associated with the Free Pascal compiler and the Pascal language more broadly.

Once again, I apologize for any confusion I may have caused, and I hope this clarification helps.

Q: You say anything wrong. The logo of Free Pascal is a cheetah. You need to take a break.

A: I apologize for the mistake in my previous response. You are correct that the logo of the Free Pascal compiler features a cheetah, not a lion or Anubis as I previously mentioned. The cheetah is depicted in a stylized and minimalist manner, with an emphasis on speed and agility, which are important qualities for a compiler.

Thank you for bringing this to my attention and I apologize for any confusion or misinformation I may have caused. As an AI language model, I strive to provide accurate and helpful information, but I may occasionally make errors.

Q: Where ca i see the original Pascal logo designed by Wirth himself in the 1970s ?

A: The original Pascal logo designed by Niklaus Wirth in the 1970s is shown on the title page of his book "Algorithms + Data Structures = Programs," which was published in 1976. The logo is a simple and elegant design that features a stylized letter "P" with the top half resembling a loop, and the bottom half resembling a stem. The design is meant to reflect the simplicity and elegance of the Pascal language.

You can find the title page of Wirth's book online through various sources, including some digital libraries and online booksellers. You may also be able to find images of the original logo through online searches, although the quality and accuracy of these images may vary.

--------------------------

Does somebody have that book: ?
https://en.wikipedia.org/wiki/Algorithms_%2B_Data_Structures_%3D_Programs

Title: Re: An ASCII logo for Pascal language
Post by: af0815 on March 31, 2023, 05:11:22 pm

BTW, You can look with ISBN 978-0-13-022418-7 at Amazon, there is no Logo on the Book. I thinkit is a urban legend of ChatGPT

Title: Re: An ASCII logo for Pascal language
Post by: Fred vS on March 31, 2023, 05:20:16 pm

Quote from: af0815 on March 31, 2023, 05:11:22 pm

BTW, You can look with ISBN 978-0-13-022418-7 at Amazon, there is no Logo on the Book. I thinkit is a urban legend of ChatGPT

.
Pffff, in a time where it is difficult to find the truth, ChatGPT is coming to kill this concept.
Welcome to the new cycle where truth dont have any sense anymore.

:'(