Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1764 1487 (N27W63 L= 15)   837    223        2 (1734/1448-1802/1510)  11.3 W58-W68 N25-N28
      2 1434 1400 (N25W31 L=342)   376     75        0 (1398/1378-1463/1427)   0.0 W28-W33 N24-N27
      3 1584 1315 (N19W41 L=352)  1764    394        9 (1448/1246-1670/1381) -35.5 W31-W46 N13-N23
      4 1848 1290 (N14W67 L= 18)   975    127        4 (1821/1244-1875/1345) -90.0 W63-W70 N11-N17
      5  879 1231 (N18E08 L=303)   303    123        0 ( 833/1171- 919/1284) -49.4 E11-E05 N14-N21
      6  921 1124 (N11E06 L=305)   224     78        1 ( 888/1106- 946/1157)  33.7 E08-E04 N10-N13
      7  290 1091 (N11E52 L=259)   581    169        1 ( 249/1063- 340/1142)   6.3 E56-E47 N08-N13
      8  571 1057 (N08E29 L=282)   364     80        1 ( 531/1037- 608/1076)   0.0 E31-E26 N07-N09
      9 1884  949 (S07W66 L= 18)  1483    266        2 (1839/ 904-1933/ 984) -18.4 W60-W75 S10-S04
     10 1553  753 (S16W34 L=345)  1078    297        2 (1452/ 650-1655/ 891)  45.0 W26-W41 S21-S07
     11  177  828 (S06E68 L=244)   790    116        1 ( 158/ 798- 206/ 869) -53.1 E70-E63 S08-S03
     12 1644  560 (S30W44 L=356)  1547    204        4 (1544/ 523-1713/ 616)  21.0 W36-W51 S32-S26
     13  474  531 (S25E43 L=268)   723    130        2 ( 423/ 499- 538/ 573) -32.0 E46-E38 S27-S22
  

    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