Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  313 1459 (N06E59 L=132)  3060    496        9 ( 207/1377- 393/1577)  42.5 E71-E52 N00-N13
      2  889 1396 (N11E16 L=175)   669    220        2 ( 845/1289- 942/1459) -68.2 E18-E12 N05-N15
      3  485 1355 (N02E40 L=151)   254     72        1 ( 459/1326- 501/1379) -26.6 E42-E38 N00-N03
      4  122 1151 (S14E71 L=120)  2227    146        1 (  91/1092- 149/1224)  90.0 E74-E66 S17-S09
      5  333  927 (S26E44 L=147)  2391    519        6 ( 225/ 762- 458/1098)  53.5 E54-E36 S37-S13
      6 1281  891 (S09W18 L=209)   421     99        1 (1224/ 867-1322/ 915)   9.5 W14-W20 S10-S07
      7 1329  783 (S14W23 L=214)   743    182        1 (1263/ 708-1394/ 861)  79.7 W20-W25 S19-S08
      8  938  747 (S25W01 L=192)   562     98        1 ( 888/ 705- 984/ 796)  63.4 E01-W03 S27-S21
      9 1179  661 (S24W18 L=209)   260     78        0 (1139/ 649-1227/ 672)  21.8 W15-W20 S25-S22
     10  335  614 (S46E45 L=146)   377    106        1 ( 309/ 592- 371/ 646)  -9.5 E47-E41 S47-S43
     11 1662  513 (S19W58 L=248)  1961    487        1 (1529/ 467-1832/ 564)  27.4 W48-W75 S25-S10
     12  556  540 (S47E24 L=167)   294     33        1 ( 531/ 524- 583/ 561)  11.3 E26-E21 S47-S45
     13 1335  505 (S29W34 L=225)   334     65        1 (1300/ 485-1369/ 525)  11.3 W31-W36 S30-S27
     14 1381  381 (S35W44 L=235)   726    164        1 (1295/ 359-1462/ 412)  41.6 W38-W47 S38-S30
  

    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