Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  731 1866 (N68E15 L=326)  1080     95        2 ( 697/1827- 766/1893) -38.2 E25-E08 N62-N73
      2  471 1495 (N38E35 L=307)   312     49        1 ( 442/1474- 492/1512)   0.0 E37-E32 N35-N38
      3 1668 1396 (N13W50 L= 31)  1328    225        4 (1572/1344-1744/1437) -11.3 W42-W57 N09-N16
      4  494 1389 (N30E31 L=310)   701    109        2 ( 450/1349- 529/1424) -40.6 E35-E28 N26-N32
      5  941 1352 (N21E00 L=341)   728    255        4 ( 842/1262-1015/1408) -54.0 E06-W03 N14-N25
      6  460 1296 (N24E34 L=307)   248     36        1 ( 436/1277- 480/1315) -33.7 E35-E32 N23-N25
      7  187 1208 (N23E61 L=280)   844    145        0 ( 175/1131- 208/1282)  90.0 E63-E59 N18-N27
      8 1804 1161 (S03W56 L= 37)   339     42        0 (1776/1145-1826/1182)   9.5 W52-W58 S03-S01
      9  963 1036 (N02E03 L=338)   237     58        0 ( 935/1007- 989/1070)  36.9 E05-E01 N00-N03
     10 1721  777 (S24W45 L= 27)   294     39        0 (1703/ 758-1739/ 798) -56.3 W43-W47 S25-S22
     11 1412  547 (S35W20 L=  1)  2188    358        5 (1266/ 445-1559/ 652)  19.2 W08-W31 S40-S29
     12  307  514 (S20E65 L=276)  2539    278        3 ( 250/ 409- 391/ 621)  82.4 E70-E59 S28-S13
     13  909  444 (S34E18 L=323)   225     37        0 ( 885/ 426- 937/ 468) -56.3 E19-E16 S35-S32
     14  689  395 (S34E36 L=305)   336    107        0 ( 636/ 385- 745/ 406)  -6.3 E40-E31 S35-S32
     15  471  339 (S34E62 L=280)   516     57        1 ( 446/ 316- 497/ 359) -45.0 E64-E57 S36-S32
  

    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