From: Michael Shestero
Subject: simple graphical examples needed
Date: Tue, 11 Nov 2003 17:28:59 +0000
Message-ID: <bor6cq$1hre1m$1@ID-54498.news.uni-berlin.de>

Hello.

I am looking for  interesting simple graphical examples such as
dragon-curve, recurrent curves etc, for my LISP engine
http://cyber.miem.edu.ru/~shestero/ .
Could anybody give me URLs where I can get such small toys?

Thanx,
Shestero Michael

• Re: simple graphical examples needed lin8080
  • Re: simple graphical examples needed Michael Shestero
    • Re: simple graphical examples needed lin8080

From: lin8080
Subject: Re: simple graphical examples needed
Date: Wed, 12 Nov 2003 23:41:32 +0000
Message-ID: <3FB2C52C.56630001@freenet.de>

Michael Shestero schrieb:
> 
> Hello.
> 
> I am looking for  interesting simple graphical examples such as
> dragon-curve, recurrent curves etc, for my LISP engine
.................................
;; start using (lingen) = linien generator with newlisp 6.2

(context 'lingen)

(define (start)
  (clear-console)
  (prop-caption 'console "lin.gen")
  (prop-color 'console 60 60 60) (titel)
  (prop-scale 'console 100 -100)
  (prop-origin 'console 0 100))

(define (titel)
  (text-font "Courier" 20 0)
  (text 'console 5 5 "lin.gen" 10 1))

(define (muster) 
   (pen 1 3 0)
   (line 'console 20 8 20 8)   (line 'console 50 8 50 8)   
   (line 'console 80 8 80 8)   (line 'console 20 48 20 48) 
   (line 'console 50 48 50 48) (line 'console 80 48 80 48) 
   (line 'console 20 88 20 88) (line 'console 50 88 50 88) 
   (line 'console 80 88 80 88))

(define (anzahl) 
   (set 'wieviel (rand 17))
   (case wieviel
   (0 (set 'menge 1))   (1 (set 'menge 2))   (2 (set 'menge 3))
   (3 (set 'menge 4))   (4 (set 'menge 5))   (5 (set 'menge 6))
   (6 (set 'menge 7))   (7 (set 'menge 8))   (8 (set 'menge 9))
   (9 (set 'menge 10))  (10 (set 'menge 11)) (11 (set 'menge 12))
   (12 (set 'menge 13)) (13 (set 'menge 14)) (14 (set 'menge 15))
   (15 (set 'menge 16)) (16 (set 'menge 17)) (17 (set 'menge 18)))) 

(set 'px11 20) (set 'px12 50) (set 'px13 80) (set 'py11 8) 
(set 'py12 8)  (set 'py13 8)  (set 'px21 20) (set 'px22 50) 
(set 'px23 80) (set 'py21 48) (set 'py22 48) (set 'py23 48) 
(set 'px31 20) (set 'px32 50) (set 'px33 80) (set 'py31 88) 
(set 'py32 88) (set 'py33 88) 

(define (linien)  
   (set 'xwo (rand 17))
   (case xwo
   (0  (line 'console px11 py11 px12 py12)) 
   (1  (line 'console px11 py11 px13 py13)) 
   (2  (line 'console px12 py12 px13 py13)) 
   (3  (line 'console px21 py21 px22 py22)) 
   (4  (line 'console px21 py21 px23 py23)) 
   (5  (line 'console px22 py22 px23 py23)) 
   (6  (line 'console px31 py31 px32 py32)) 
   (7  (line 'console px31 py31 px33 py33)) 
   (8  (line 'console px32 py32 px33 py33)) 
   (9  (line 'console px11 py11 px21 py21)) 
   (10 (line 'console px11 py11 px31 py31)) 
   (11 (line 'console px21 py21 px31 py31)) 
   (12 (line 'console px12 py12 px22 py22)) 
   (13 (line 'console px12 py12 px32 py32)) 
   (14 (line 'console px22 py22 px32 py32)) 
   (15 (line 'console px13 py13 px23 py23)) 
   (16 (line 'console px13 py13 px33 py33)) 
   (17 (line 'console px23 py23 px33 py33))))

(start) (titel) (muster) (sleep 200)

(define (males)
(clear-console) (titel) (muster)
(pen 1 3 1) (anzahl) (dotimes (x menge) (linien)) 
(sleep 600))

(dotimes (x 120) (males))

(context 'MAIN)
;; :)

From: Michael Shestero
Subject: Re: simple graphical examples needed
Date: Fri, 14 Nov 2003 09:45:54 +0000
Message-ID: <bp28cb$1iupmp$1@ID-54498.news.uni-berlin.de>

Thanks for Lin8080.
But as you can see on the picture (on page cyber.miem.edu.ru/~shestero) I
already have the sample "Dragon Curve". It is the fist sample you can find
everywhere.
What I am looking for is URL where not just one-two-three but 50 may be
100-200 or more such samples (different curves, fractals etc) collected.

> > I am looking for  interesting simple graphical examples such as
> > dragon-curve, recurrent curves etc, for my LISP engine
> .................................
> ;; start using (lingen) = linien generator with newlisp 6.2
[...]

From: lin8080
Subject: Re: simple graphical examples needed
Date: Sat, 15 Nov 2003 17:16:02 +0000
Message-ID: <3FB65F52.3E4142EC@freenet.de>

Michael Shestero schrieb:

> What I am looking for is URL where not just one-two-three but 50 may be
> 100-200 or more such samples (different curves, fractals etc) collected.

I do guess so, but...
inside here there are many (many) command-line fans -
and some will not have these (klick-on-icon) routines

:)