Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  317 1454 (N05E59 L=132)  2741    481       11 ( 206/1379- 399/1563)  39.8 E70-E51 N00-N12
      2  914 1444 (N15E16 L=175)   199     46        1 ( 886/1429- 947/1456)  14.0 E17-E13 N13-N15
      3  889 1367 (N10E15 L=175)   488    145        1 ( 855/1287- 915/1422) -45.0 E18-E11 N05-N13
      4  125 1167 (S13E71 L=120)  3317    217        3 (  92/1090- 161/1251)  83.7 E77-E66 S17-S08
      5  243 1177 (S12E56 L=134)   370     58        0 ( 223/1145- 258/1203)  90.0 E58-E54 S13-S10
      6  343  933 (S25E43 L=147)  2437    473        3 ( 228/ 762- 460/1096)  56.3 E53-E35 S37-S13
      7 1291  887 (S09W18 L=209)   428     95        1 (1236/ 864-1333/ 912)   8.1 W14-W21 S10-S07
      8 1289  739 (S17W22 L=213)  1150    322        0 (1149/ 642-1396/ 858)  63.4 W16-W25 S25-S07
      9  937  735 (S26W01 L=192)   681    129        2 ( 871/ 684- 994/ 795)  76.0 E02-W04 S29-S21
     10  337  615 (S46E45 L=145)   352     74        1 ( 312/ 594- 367/ 642)  -9.5 E47-E41 S47-S44
     11  561  536 (S47E23 L=167)   256     29        0 ( 539/ 519- 586/ 556)   0.0 E25-E20 S48-S45
     12 1663  510 (S19W58 L=248)  1751    423        0 (1541/ 463-1808/ 542)  27.6 W49-W72 S25-S12
     13 1389  383 (S35W44 L=235)   753    194        0 (1287/ 360-1477/ 427)  45.0 W38-W48 S38-S29
  

    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