Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  919 1726 (N56W07 L=105)   462    149        0 ( 849/1695- 978/1755)   7.6 E01-W14 N54-N57
      2 1459 1358 (N19W34 L=132)   678    240        1 (1395/1298-1527/1394) -36.9 W30-W38 N14-N21
      3  517 1373 (N35E32 L= 65)   252     48        0 ( 493/1350- 546/1389)   0.0 E34-E29 N33-N35
      4  160 1057 (N17E69 L= 29)   566     57        1 ( 145/1026- 186/1086)  71.6 E71-E64 N15-N18
      5 1715  949 (S10W45 L=143)   495     46        2 (1683/ 918-1738/ 979) -76.0 W42-W47 S12-S08
      6 1383  761 (S15W18 L=116)   273    108        0 (1351/ 713-1401/ 794) -80.5 W16-W19 S18-S12
      7 1180  661 (S18W04 L=102)   852    254        0 (1104/ 568-1249/ 749)  45.0 E01-W09 S23-S13
      8 1717  651 (S30W46 L=144)   542    103        1 (1673/ 632-1767/ 679)   0.0 W41-W51 S31-S28
      9 1513  649 (S25W27 L=125)   318     56        0 (1489/ 621-1535/ 678)  45.0 W25-W28 S26-S23
     10  825  509 (S23E21 L= 76)   759    245        0 ( 737/ 447- 908/ 586)  25.0 E29-E14 S26-S18
     11  408  549 (S16E52 L= 45)   476     83        0 ( 391/ 511- 437/ 583)  35.5 E55-E48 S18-S13
     12 1342  506 (S32W14 L=111)   593    171        1 (1275/ 450-1390/ 570)  33.7 W08-W17 S35-S28
     13  925  429 (S30E17 L= 81)   971    235        2 ( 827/ 378-1028/ 489)  16.4 E25-E08 S33-S27
     14 1400  446 (S38W18 L=116)   412    113        1 (1345/ 422-1443/ 478)  14.0 W13-W21 S39-S36
     15  509  408 (S27E51 L= 47)   761     80        1 ( 481/ 375- 541/ 445)  59.0 E53-E47 S29-S24
  

    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