Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  954 1896 (N47E42 L=110)   747     85        0 ( 917/1859- 985/1919) -15.3 E47-E35 N44-N49
      2  761 1861 (N38E52 L= 99)  1004    124        0 ( 712/1833- 830/1881)  60.3 E55-E47 N34-N41
      3 1150 1644 (N33E11 L=141)   698     98        1 (1111/1603-1191/1681) -14.0 E14-E06 N30-N34
      4  586 1491 (N09E39 L=113)   561    102        1 ( 534/1461- 636/1516)  45.0 E41-E35 N06-N11
      5  392 1455 (N03E52 L=100)   412     63        1 ( 366/1421- 412/1487)  78.7 E53-E50 N00-N05
      6  485 1284 (S05E39 L=113)   703    239        0 ( 409/1197- 542/1373) -26.6 E46-E32 S08-S01
      7  945 1304 (N06E12 L=140)   382    114        1 ( 896/1265- 973/1356)  74.1 E13-E09 N02-N09
      8 1733 1289 (N29W39 L=191)   482    105        0 (1695/1239-1758/1326) -26.6 W35-W41 N26-N31
      9  307 1210 (S13E51 L=101)   874    193        1 ( 247/1117- 344/1282)  68.2 E55-E48 S18-S08
     10  162 1124 (S20E66 L= 86)  1468    173        1 (  92/1103- 235/1159)   7.4 E79-E56 S21-S17
     11 1545 1137 (N13W27 L=178)   226     72        0 (1521/1111-1575/1155)   0.0 W25-W29 N11-N14
     12  554 1081 (S15E29 L=122)   453    119        2 ( 511/1045- 624/1116)  39.8 E31-E24 S17-S11
     13  654 1078 (S13E23 L=129)   285    119        1 ( 615/1050- 684/1112)  45.0 E24-E20 S15-S11
     14  745  741 (S30E09 L=142)   219     34        0 ( 728/ 721- 766/ 767) -33.7 E10-E07 S31-S28
     15 1444  673 (S14W35 L=186)  1085    318        0 (1301/ 641-1580/ 729)  40.6 W26-W41 S19-S07
  

    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