Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1294 1786 (N41W53 L=208)   759    143        1 (1231/1749-1358/1815) -12.1 W44-W60 N39-N42
      2 1528 1608 (N23W54 L=209)  1026    127        2 (1465/1580-1591/1638) -13.0 W48-W61 N20-N25
      3  612 1446 (N42E16 L=140)   409     74        1 ( 575/1420- 652/1475) -39.8 E18-E12 N38-N44
      4 1192 1442 (N24W22 L=178)   387    143        1 (1133/1405-1256/1472) -50.2 W19-W24 N20-N26
      5  850 1333 (N28E02 L=154)   227    110        1 ( 809/1303- 905/1365) -63.4 E03-W00 N24-N30
      6 1057 1269 (N18W09 L=164)   805    326        1 ( 923/1228-1216/1305) -18.4 W00-W18 N14-N21
      7 1558 1140 (S03W34 L=190)   322     70        1 (1532/1118-1595/1167) -45.0 W32-W36 S04-S01
      8 1658  985 (S14W37 L=193)   701    256        0 (1624/ 880-1688/1096)  77.0 W35-W39 S20-S07
      9  851 1037 (N11E09 L=146)   207     62        0 ( 824/1015- 872/1063)  14.0 E11-E07 N09-N12
     10  427 1038 (N21E37 L=118)   281     86        0 ( 404/1010- 469/1061) -45.0 E38-E34 N18-N22
     11  841  984 (N08E11 L=144)   264     95        1 ( 806/ 961- 897/1016)   9.5 E13-E07 N07-N09
     12  573  866 (N08E30 L=125)   243     66        0 ( 557/ 826- 586/ 900) -90.0 E31-E29 N05-N10
     13 1254  598 (S25W02 L=157)   264     93        0 (1206/ 578-1294/ 624)   0.0 E01-W04 S25-S23
     14  930  409 (S28E25 L=131)  1167    269        2 ( 890/ 310- 959/ 543)  49.1 E32-E19 S34-S18
  

    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