diff options
Diffstat (limited to 'files/practicum/FrequentielijstGUI.icl')
| -rw-r--r-- | files/practicum/FrequentielijstGUI.icl | 89 |
1 files changed, 0 insertions, 89 deletions
diff --git a/files/practicum/FrequentielijstGUI.icl b/files/practicum/FrequentielijstGUI.icl deleted file mode 100644 index 4d29906..0000000 --- a/files/practicum/FrequentielijstGUI.icl +++ /dev/null @@ -1,89 +0,0 @@ -implementation module FrequentielijstGUI
-
-import StdEnv, StdIO
-
-toonFrequentielijst :: [(a,Int)] *World -> *World | toString a
-toonFrequentielijst freqs world
- = startIO SDI Void initGUI [ProcessClose closeProcess] world
-where
- nrFreqs = length freqs
- domain = map fst freqs
- range = map snd freqs
- (r_min,r_max) = (minList range, maxList range)
- r_range = if (r_min <> r_max) (toReal (r_max - r_min + 1)) 1.0
-
- initGUI = snd o (openWindow Void wdef)
-
- wdef = Window "Frequentielijst" NilLS
- [ WindowClose (noLS closeProcess)
- , WindowLook False look
- ]
- look _ {newFrame} picture
- # (fm,picture) = getPenFontMetrics picture
- # picture = unfill newFrame picture
- # picture = setPenColour Red picture
- # picture = drawAt {x=hMargin,y=h-vMargin} {zero & vx=w} picture
- # picture = drawAt {x=hMargin,y=h-vMargin} {zero & vy=0-h} picture
- # picture = setPenColour Black picture
- # picture = seq [bar (fontLineHeight fm,fm.fDescent) af i \\ af <- freqs & i <- [0..]] picture
- = picture
- where
- frameSize = rectangleSize newFrame
- (w,h) = (frameSize.w,frameSize.h)
- wbar = (w-hMargin) / nrFreqs
- height f = toInt (toReal (h-vMargin) * toReal (f-r_min+1) / r_range)
-
- bar (fh,fd) (a,f) i picture
- # picture = fill { corner1={x=hMargin+ i *wbar+1,y=h-vMargin}
- , corner2={x=hMargin+(i+1)*wbar-1,y=h-vMargin-height f}
- } picture
- # (aw,picture) = getPenFontStringWidth (toString a) picture
- # (fw,picture) = getPenFontStringWidth (toString f) picture
- # picture = undrawAt {x=hMargin + i*wbar + (wbar-aw)/2, y=h-vMargin-fd} (toString a) picture
- # picture = undrawAt {x=hMargin + i*wbar + (wbar-fw)/2, y=h-vMargin-height f+fh} (toString f) picture
- = picture
-
-hMargin = 10
-vMargin = 10
-
-toonFrequentielijst2 :: [(a,Int)] *World -> *World | toString a
-toonFrequentielijst2 freqs world
- = startIO SDI Void initGUI [ProcessClose closeProcess] world
-where
- nrFreqs = length freqs
- domain = map fst freqs
- range = map snd freqs
- (r_min,r_max) = (minList range, maxList range)
- r_range = if (r_min <> r_max) (toReal (r_max - r_min + 1)) 1.0
-
- initGUI = snd o (openWindow Void wdef)
-
- wdef = Window "Frequentielijst" NilLS
- [ WindowClose (noLS closeProcess)
- , WindowLook False look
- , WindowVScroll (stdScrollFunction Vertical 50)
- , WindowViewDomain {zero & corner2={x=2^16,y=nrFreqs*20}}
- ]
- look _ {newFrame} picture
- # (fm,picture) = getPenFontMetrics picture
- # picture = unfill newFrame picture
- # picture = setPenColour Red picture
- # picture = drawAt {x=hMargin,y=vMargin} {zero & vx=w} picture
- # picture = drawAt {x=hMargin,y=vMargin} {zero & vy=nrFreqs*fontLineHeight fm} picture
- # picture = setPenColour Black picture
- # picture = seq [bar (fontLineHeight fm,fm.fDescent) af i \\ af <- freqs & i <- [0..]] picture
- = picture
- where
- frameSize = rectangleSize newFrame
- (w,h) = (frameSize.w,frameSize.h)
- wbar = (w-hMargin) / nrFreqs
- height f = toInt (toReal (w-vMargin) * toReal (f-r_min+1) / r_range)
-
- bar (fh,fd) (a,f) i picture
- # picture = fill { corner1={y=vMargin+ i *fh,x=hMargin+1}
- , corner2={y=vMargin+(i+1)*fh,x=hMargin+height f}
- } picture
- # (fw,picture) = getPenFontStringWidth (toString f) picture
- # picture = undrawAt {y=vMargin+(i+1)*fh-fd,x=hMargin + 2} (toString a) picture
- # picture = undrawAt {y=vMargin+(i+1)*fh-fd,x=hMargin + height f - fw} (toString f) picture
- = picture
|