1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53
|
import Graphics.Gloss
y = 0.0:[]
x = 4.0:[]b = 1.0:[]
a = -0.4:[]
f = ((head a)*(head x) + (1-(head a))*2*(head x)^2 / (1+(head x)^2)):[]
x'= 0.0:[]
y'= 0.0:[]
main =
do
let x'=((head b)*(head y) + (head f)):[]
f =((head a)*(head x') + (1-(head a))*2*(head x')^2 / (1+(head x')^2)):[]
y'=((head f) - (head x)):[]
x =(head x'):[]
y =(head y'):[]
dessin
main
picture = pictures
[ (translate (10*(head x)) (10*(head y)) (point))
]
myColor n = ( [ca,cb,cc,cd,ce,cf,cg,ch,ci,cj,ck,cl,cm,cn,co,cp] !! abs(round(n)) )
ca = white
cb = light(light yellow)
cc = light yellow
cd = yellow
ce = light(light orange)
cf = light orange
cg = orange
ch = light (dark orange)
ci = light red
cj = red
ck = dark red
cl = light violet
cm = violet
cn = light(light (dark violet))
co = light ( light blue)
cp = light blue
point = color (myColor (3*(head f))) (circle 0.5)
dessin =
display
(InWindow
"Selle" -- window title
(300, 300) -- window size
(10, 10)) -- window position
black -- background color
picture -- picture to display |
Partager