OpenSSL 3.4.0 22 Oct 2024
Copyright (c) 1998-2024 The OpenSSL Project
Copyright (c) 1995-1998 Eric A. Young, Tim J. Hudson
All rights reserved.

zlib 1.3.1 (22 Jan 2024)
Copyr ight (C) 1995-2022 Jean-loup Gailly and Mark Adler

libiconv-1.17
Copyright (C) 2000-2017 Free Software Foundation, Inc.

Nettle library (version 2.0)
Originally written 2001 by Niels Moller, updated 2009.
(twofish/serpentのみ使用)

kumaGIF
Copyright (c) 1.023world All Rights Reserved.
http://1023world.net/

◇◇参照したプログラムソース◇◇

FreeBSD 5.2.1-RELEASE
Copyright (c) 1980, 1983, 1986, 1988, 1990, 1991, 1993, 1994
The Regents of the University of California. All rights reserved.

rlogin, rlogind, telnet, telnetd, ssh, sshd

menu(0, "アナログ時計", "TekClock2");

function TekClock2() {
        ofs = complex(1500, 1500);
        hou = [ complex(0, 600), complex(40, 0), complex(0, -100), complex(-40, 0), complex(0, 600) ];
        min = [ complex(0, 900), complex(40, 0), complex(0, -100), complex(-40, 0), complex(0, 900) ];
        sec = [ complex(0, 920), complex(20, 0), complex(0, -200), complex(-20, 0), complex(0, 920) ];
        d = -2 * PI;

        //iconstyle("TekClock2を実行中");
        tekopen(1);
        
        while ( !Document.Abort ) {
                tekclear(1);
                t = getdate(time());

                for ( n = 0 ; n < 60 ; n++ ) {
                        i = d * n / 60;
                        pxy[0] = complex(0, (n % 5) == 0 ? 930 : 950) * complex(cos(i), sin(i)) + ofs;
                        pxy[1] = complex(0, 990) * complex(cos(i), sin(i)) + ofs;
                        tekpoly(pxy, 4, 0, 1, 1);
                }

                for ( n = 0 ; n < 5 ; n++ ) {
                        i = d * (t.hour * 60 + t.min) / 720;
                        hxy[n] = hou[n] * complex(cos(i), sin(i)) + ofs;
                        i = d * (t.min * 60 + t.sec) / 3600;
                        mxy[n] = min[n] * complex(cos(i), sin(i)) + ofs;
                        i = d * t.sec / 60;
                        sxy[n] = sec[n] * complex(cos(i), sin(i)) + ofs;
                }

                tekpoly(hxy, 2, 0, 1, 1);
                tekpoly(mxy, 2, 0, 1, 1);
                tekpoly(sxy, 3, 0, 1, 1);

                tekflush(0);
                sleep(1000);    // 1秒待ち
        }
}