(define x (list   "#87CEFA" "#87CEFA" "#87CEFA" "#87CEFA" "#87CEFA" "#87CEFA""#87CEFA" "#87CEFA" "#7BBBE3"  "#7BBBE3" "#6EA9CD" "#6EA9CD" "#6296B6" "#6296B6" "#56839F" "#56839F" "#4A7088" "#3D5E72" "#314B5B" "#253844" "#19252D" "#0C1317" "#000000"))
(bgcolor "black")

(goto -50 -300)

(clear)


(define (change lst amount)
	(cond 
		((= amount 1) lst)
		(else (change (cdr lst) (- amount 1)))))

(define (base size repeat)
	(cond
		((= repeat 0) 
			(forward size)
			(right 45))
		(else 
	(forward size)
	(right 45)
	(base size (- repeat 1)))))

(define (fractal size depth)
	(speed 0)
	(cond
		((= depth 0) (base size 7))
	(else
		(fractal (* 0.98 size) (- depth 1))
		(right 5)
		(fractal (* 0.98 size) (- depth 1)))))

(define (rectangle width hight)
	(speed 0)
	(forward hight)
     (right 90)
     (forward width)
     (right 90)
     (forward hight)
     (right 90)
     (forward width)
     (right 90)
     (forward hight)
     )

(define (rect-left wid len dep)
	(speed 0)
	
	(rectangle wid len)
	(begin_fill)
	(left 60)
	(forward dep)
	(right 150)
	(forward wid)
	(right 30)
	(forward dep)
	(right 180)
	(forward dep)
	(left 30)
	(forward wid)
	(right 90)
	(end_fill)
	)
	
(define (rect wid len dep)
	(speed 0)
	(begin_fill)
	
	(left 90)
	(forward wid)
	(right 90)
     (rectangle wid len)
     (right 90)
     (forward wid)
     (left 30)
     (forward dep)
     (left 150)
     (forward wid)
     (left 30)
     (forward dep)
     (backward dep)
     (left 150)
     (forward wid)
     (left 90)
     (end_fill)

     )

(define (stairs-right wid len dep am)
	(speed 0)
	(color (car (change x am)))
	(cond 
		((= am 1) (rect wid len dep)
			(left 90)
			(forward wid)
			(right 90)
			(stairs-left wid len dep 9 9))
		(else (rect wid len dep) (stairs-right (/ wid (/ 11 10)) (/ len (/ 11 10)) (/ dep (/ 11 10)) (- am 1)))))


(define (stairs-left wid len dep am colornum)
	(speed 0)
	(color (car (change x colornum)))
	(cond 
		((= am 1) (rect-left wid len dep)
			(right 90)
			(forward wid)
			(left 90))

		(else (rect-left wid len dep) (stairs-left (/ wid (/ 11 10)) (/ len (/ 11 10)) (/ dep (/ 11 10)) (- am 1) (- colornum 1)))))

(stairs-right 300 40 40 (- (length x)1))

(define (point length)
	(speed 0)
	(right 7)
	(forward length)
	(right 167)
	(forward length)
	(right 186))
	
(define (4star size)
	(speed 0)
	(begin_fill)
	(point size)
	(right 45)
	(point (/ size 2))
	(right 45)
	(point size)
	(right 45)
	(point ( / size 2))
	(right 45)
	(point size)
	(right 45)
	(point (/ size 2))
	(right 45)
	(point size)
	(right 45)
	(point ( / size 2))
	(right 45)

	(end_fill))



(define (drawstar x y size col)
	(speed 0)
	(color col)
	(penup)
	(goto x y)
	(color col)
	(pendown)
	(4star size)
	)
; #FFFFFF , e8e8e8, d1d1d1, b9b9b9, a2a2a2, 8b8b8b, 747474, 5d5d5d, 464646, 2e2e2e

(drawstar 300 200 3 "#ffffff")
(drawstar -100 100 7 "#747474")
(drawstar -400 200 7 "#2E2E2E")
(drawstar -178 22 5 "#464646")
(drawstar 190 90 2 "#b9b9b9")
(drawstar -45 200 8 "#a2a2a2")
(drawstar -65 230 3 "#b9b9b9")
(drawstar -300 -200 3 "#2e2e2e")
(drawstar -270 100 2 "#747474")
(drawstar -480 -130 5 "#2e2e2e")
(drawstar -500 -117 7 "#2e2e2e")
(drawstar -430 -40 2 "#5d5d5d")

(drawstar -250 200 3 "#747474")
(drawstar -570 340 3 "#2E2E2E")
(drawstar 120 292 3 "white")
(drawstar 102 338 3 "white")
(drawstar 160 314 2 "white")

(drawstar 0 290 3 "#d1d1d1")
(drawstar 48 227 3 "#d1d1d1")
(drawstar 80 198 2 "#d1d1d1")

(drawstar 242 346 3 "white")
(drawstar 300 298 2 "white")
(drawstar 319 269 2 "white")


(drawstar -220 292 4 "#747474")
(drawstar -102 338 5 "white")
(drawstar -240 240 2 "#747474")

(drawstar -400 290 5 "#2E2E2E")
(drawstar -248 227 3 "#8b8b8b")
(drawstar -294 198 2 "#8b8b8b")

(drawstar -242 346 4 "#464646")
(drawstar -350 298 2 "#8b8b8b")
(drawstar -68 269 3 "#8b8b8b")

(drawstar 524 71 4 "#a2a2a2")
(drawstar -380 30 3 "#2E2E2E")
(drawstar -460 300 5 "#2E2E2E")

(drawstar -334 350 5 "#2E2E2E")
(drawstar -220 317 4 "#2E2E2E")
(drawstar -426 78 3 "#2E2E2E")


(drawstar -230 29 3 "#464646")
(drawstar 253 -165 4 "#464646")
(drawstar 310 -20 5 "#747474")

(drawstar 34 323 6 "#d1d1d1")
(drawstar 120 340 4 "white")
(drawstar 256 300 2 "white")

(drawstar 370 310 5 "white")
(drawstar 336 360 3 "white")
(drawstar 460 90 2 "#8b8b8b")

(drawstar 370 230 7 "#d1d1d1")
(drawstar 398 170 3 "#b9b9b9")
(drawstar 320 -200 6 "#2E2E2E")

(drawstar 425 -100 3 "#b9b9b9")
(drawstar 443 28 5 "#5d5d5d") 
(drawstar 272 -93 7 "#5d5d5d")

(drawstar 469 200 5 "#b9b9b9")
(drawstar 485 100 2 "#a2a2a2")
(drawstar 421 -130 7 "#2E2E2E")
(drawstar 268 -257 7 "#2E2E2E")

(drawstar 128 -257 8 "#2E2E2E")
(drawstar 199 -117 5 "#2E2E2E")
(drawstar 284 17 7 "#8b8b8b")
(drawstar 314 87 6 "#8b8b8b")
(penup)



(define (sphere r)
	(speed 0)
	(cond
		((< r 5)
		(begin_fill) 
		(circle 1)
		(end_fill))
		(else
			(circle r)
			(sphere (* .99 r)))))




(bgcolor "Black")
(color "#003333")
(penup)
(goto 530 290)
(pendown)
(left 225)
(sphere 50)
(right 225)
(penup)
(left 150)
(goto 498 -120)
(color "#330033")
(goto -535 230)
(pendown)
(right 90) 
(sphere 100) 
(left 90)
(penup)
(color "#330000")
(goto 520 -210)
(pendown) 
(sphere 180)
(penup)
(goto -550 -300)
(pendown)
(right 90)
(penup)
(goto -150 200)
(penup)
(goto -100 250)
(pendown)
(color "Blue")
(fractal 30 7)
(ht)