;b24.lng
; to do @lang4s procedure. This procedure calculates how many times
; the shifts have been larger than 1.5 degrees (in this case) and 
; normalizes this number to the amount of images
;lang4x is adapted for 4x symmetry
MD
TR OFF
;  file info turned off
MD
VB OFF
MD
SET MEM
800
MD
SET MP
4
x41=2.0
;x41= angular step
x45=1.5*x41
DO LB1 i=2,5
x76=x0
x86=x0+1
@lang4s[x45,x89]
refi/anglesx76
refi/anglesx86
x77=x76+1
sd x0,x76,x77,x89
refi/langdoc001
LB1
sd e
refi/langdoc001
en