Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  517 1491 (N33E33 L= 12)  4647    575       10 ( 317/1264- 700/1642) -33.4 E68-E17 N16-N47
      2 1726 1503 (N22W59 L=104)   819    113        1 (1674/1465-1768/1526) -18.4 W53-W64 N19-N24
      3  313 1385 (N28E50 L=355)   506    109        1 ( 287/1342- 347/1432) -36.9 E54-E45 N24-N30
      4  266 1281 (N21E53 L=352)  1020    187        1 ( 242/1222- 295/1365) -71.6 E56-E49 N17-N26
      5  328 1259 (N19E47 L=358)   502     66        1 ( 309/1226- 357/1297)  90.0 E48-E43 N17-N21
      6  194 1181 (N16E60 L=345)  2249    193        6 ( 125/1117- 249/1261) -33.7 E72-E53 N11-N21
      7  329 1141 (N12E46 L=359)   432    155        1 ( 299/1092- 393/1179)  20.6 E48-E40 N09-N13
      8  198 1083 (N10E59 L=346)   761    106        2 ( 164/1059- 251/1119) -24.0 E63-E53 N07-N12
      9 1729  992 (S09W47 L= 92)  1025    146        1 (1687/ 913-1779/1039)  49.4 W43-W51 S13-S06
     10  675  808 (S11E24 L= 21)   374    120        2 ( 637/ 769- 724/ 839) -21.8 E25-E20 S13-S08
     11 1500  774 (S20W29 L= 74)   588    189        0 (1432/ 731-1597/ 799)  14.0 W24-W36 S22-S19
     12  537  576 (S24E38 L=  7)  1785    461        3 ( 469/ 398- 664/ 764)  36.3 E54-E24 S35-S13
     13 1302  694 (S24W15 L= 60)   680    193        1 (1236/ 664-1395/ 756) -28.6 W10-W21 S26-S19
     14  368  592 (S21E53 L=352)  1163    185        1 ( 324/ 497- 397/ 663)  84.8 E55-E48 S27-S16
     15 1587  468 (S42W42 L= 87)   404     60        0 (1549/ 450-1620/ 485)  -6.3 W37-W46 S43-S40
  

    OPENR, u, binfile, /COMP, /GET_LUN
    head = FLTARR(6) ;[xsize,ysize,radius,hh,mm,ss]
    READU, u, head
    data = INTARR(FIX(head[0]),FIX(head[1]))
    READU, u, data
    FREE_LUN, u
    

• each filament has the value of Fil_ID
• all values are in pixel

  c = WHERE(data EQ Fil_ID, area)
  f = '(2(A,I6))'
  PRINT, FORM=f, "Area of Fil_ID", Fil_ID," =", area 

  data = ROTATE(data,7)
  Solar_y = 2048-Solar_y