Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1429 1798 (N54W62 L= 51)   605     48        1 (1414/1768-1452/1827)  17.4 W55-W71 N51-N56
      2 1348 1786 (N54W48 L= 37)   539     60        1 (1323/1756-1371/1808)  26.6 W44-W54 N51-N56
      3  469 1531 (N41E45 L=304)   666     97        1 ( 413/1508- 522/1555)   4.8 E51-E39 N39-N42
      4  837 1488 (N36E10 L=339)   405    120        1 ( 813/1426- 855/1541)  76.0 E12-E09 N31-N39
      5  578 1498 (N38E32 L=317)   325     64        1 ( 555/1466- 611/1521) -45.0 E34-E29 N35-N39
      6 1084 1451 (N31W08 L=357)   981    225        1 ( 999/1411-1187/1496) -28.3 W01-W14 N28-N35
      7 1745 1362 (N19W58 L= 47)   383     76        1 (1730/1328-1767/1400)  68.2 W57-W60 N16-N21
      8 1113 1245 (N18W07 L=356)   686    256        2 (1048/1156-1211/1306)  30.3 W02-W14 N12-N21
      9 1639 1156 (N08W43 L= 32)   429     70        1 (1608/1118-1665/1188) -63.4 W40-W44 N05-N09
     10 1561 1098 (N05W36 L= 25)   544    136        1 (1484/1081-1613/1118) -12.5 W30-W39 N03-N06
     11 1796  790 (S17W56 L= 46)   427     59        1 (1773/ 770-1823/ 819)   0.0 W53-W59 S18-S14
     12  577  509 (S26E37 L=312)   594    143        2 ( 526/ 447- 616/ 564) -63.4 E39-E34 S30-S21
     13  463  481 (S28E48 L=301)   825    205        0 ( 441/ 396- 510/ 556)  40.6 E55-E40 S34-S22
     14 1353  393 (S41W22 L= 11)   634    129        0 (1290/ 370-1412/ 414)  11.3 W16-W26 S41-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