Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1591 1705 (N36W61 L=134)  1331    137        1 (1533/1669-1651/1746)   7.4 W51-W82 N33-N38
      2  740 1531 (N34E14 L= 60)   244     46        0 ( 714/1510- 763/1547) -36.9 E15-E11 N32-N35
      3  949 1470 (N27W00 L= 74)   213     70        0 ( 916/1456- 985/1484) -33.7 E01-W02 N25-N28
      4  594 1378 (N26E24 L= 49)   715    170        1 ( 508/1327- 665/1406) -22.6 E31-E19 N21-N28
      5  439 1166 (N14E36 L= 37)   832    237        1 ( 385/1095- 518/1266)  48.4 E40-E30 N10-N19
      6  135 1216 (N21E70 L=  4)  1327    105        1 ( 101/1165- 173/1258) -21.3 E82-E62 N17-N24
      7  481 1101 (N10E33 L= 40)   264     73        2 ( 450/1066- 517/1127)  11.3 E35-E30 N07-N11
      8  521  957 (N01E32 L= 42)   740    287        2 ( 448/ 920- 613/1007) -21.8 E36-E25 S01-N04
      9 1543  802 (S20W31 L=105)  1213    418        3 (1492/ 617-1620/ 963)  71.6 W27-W37 S31-S10
     10  756  822 (S10E19 L= 55)   236     43        1 ( 730/ 795- 784/ 841)  18.4 E20-E16 S11-S08
     11  231  720 (S10E62 L= 12)   617     88        2 ( 207/ 676- 260/ 754)  68.2 E65-E58 S12-S07
     12  929  695 (S19E10 L= 64)   206     84        0 ( 895/ 663- 970/ 721)  18.4 E12-E06 S20-S17
     13 1633  652 (S30W40 L=113)   731    144        0 (1569/ 616-1686/ 706)  24.0 W34-W44 S32-S27
     14  283  501 (S24E69 L=  4)   635     39        0 ( 264/ 475- 302/ 525)  11.3 E76-E64 S25-S22
     15  501  353 (S37E56 L= 18)   689    105        1 ( 465/ 313- 546/ 389)  13.2 E64-E47 S39-S34
  

    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