Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  945 1557 (N32E01 L=190)   855    181        2 ( 838/1525-1029/1585) -14.0 E08-W04 N29-N35
      2 1723 1356 (N14W51 L=243)   334     38        0 (1706/1330-1735/1385) -90.0 W49-W52 N12-N15
      3 1811 1182 (N03W56 L=248)   472     46        0 (1786/1157-1834/1208)  18.4 W53-W59 N01-N04
      4  122 1063 (N08E69 L=123)   720    194        3 (  99/1022- 143/1109) -80.5 E73-E65 N05-N11
      5  220 1003 (N04E57 L=135)   318     47        0 ( 201/ 977- 241/1023)  33.7 E58-E54 N02-N04
      6 1879  936 (S12W62 L=254)   535     48        0 (1855/ 906-1899/ 959) -90.0 W59-W64 S13-S10
      7  641  882 (S07E25 L=167)   722    163        1 ( 557/ 824- 706/ 931) -33.7 E29-E20 S11-S03
      8 1740  844 (S17W48 L=239)   722    126        1 (1711/ 781-1771/ 904) -76.0 W45-W50 S21-S13
      9 1793  766 (S22W54 L=245)  3574    585        7 (1662/ 670-1925/ 888)  22.9 W42-W68 S27-S15
     10 1792  786 (S21W53 L=245)   321     56        0 (1777/ 756-1803/ 818)  90.0 W51-W54 S22-S19
     11  668  623 (S23E27 L=165)   331    103        0 ( 638/ 579- 704/ 668)  39.8 E29-E23 S25-S20
     12 1037  609 (S27E03 L=189)   380     69        0 (1006/ 582-1069/ 636)  36.9 E04-W00 S28-S25
     13 1633  409 (S46W49 L=240)   403     58        0 (1609/ 389-1655/ 429) -33.7 W45-W51 S48-S44
  

    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