Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1647 1639 (N31W56 L=203)   563    167        0 (1623/1601-1681/1663)  20.6 W52-W61 N28-N32
      2  315 1469 (N35E49 L= 97)  2031    466        2 ( 216/1436- 433/1511) -17.7 E62-E37 N31-N40
      3  272 1243 (N21E50 L= 96)   514    147        1 ( 243/1209- 307/1276) -45.0 E53-E46 N18-N23
      4  569 1260 (N18E26 L=120)   207     63        0 ( 534/1245- 601/1273) -14.0 E28-E24 N17-N19
      5  187 1117 (N14E59 L= 87)   852    133        1 ( 157/1061- 209/1185)  69.4 E62-E56 N10-N18
      6  141 1135 (N16E65 L= 82)  1187    189        3 ( 111/1078- 167/1183)  50.2 E68-E61 N12-N18
      7  656 1126 (N09E21 L=125)   509    104        0 ( 606/1078- 696/1172) -56.3 E24-E18 N05-N12
      8  245 1128 (N14E53 L= 93)   421     87        1 ( 218/1099- 271/1163)  21.8 E55-E50 N12-N16
      9  847 1017 (N01E11 L=136)   343    104        1 ( 807/ 964- 882/1074)  33.7 E13-E07 S02-N03
     10 1870 1002 (S11W60 L=207)   400     51        1 (1855/ 977-1889/1027) -71.6 W58-W62 S12-S09
     11 1773  979 (S11W50 L=196)   299     51        0 (1756/ 953-1788/1006) -56.3 W48-W51 S12-S09
     12 1315  696 (S24W15 L=161)   649    233        0 (1193/ 663-1427/ 739)   0.0 W06-W22 S25-S21
     13  469  604 (S20E43 L=104)   295     49        2 ( 453/ 580- 489/ 629) -90.0 E44-E41 S21-S18
     14  427  441 (S30E53 L= 93)  1011    180        1 ( 408/ 369- 446/ 502)  56.3 E56-E48 S34-S25
     15 1100  410 (S41E03 L=143)   247     21        1 (1082/ 390-1122/ 429) -45.0 E04-W00 S42-S39
  

    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