Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1207 1637 (N40W31 L=  2)  1602    219        8 (1103/1588-1289/1682) -48.0 W25-W35 N34-N45
      2 1685 1537 (N20W63 L= 34)   781     93        1 (1649/1487-1718/1581)  56.3 W60-W68 N16-N22
      3 1713 1399 (N12W57 L= 28)   686     80        1 (1681/1361-1744/1436)  12.5 W52-W61 N10-N13
      4  492 1331 (N36E32 L=299)  1095    241        3 ( 375/1289- 587/1363) -11.3 E43-E23 N31-N39
      5  761 1257 (N26E12 L=319)   852    217        1 ( 672/1196- 847/1304) -48.0 E17-E07 N20-N30
      6  893 1072 (N12E07 L=324)   324    163        0 ( 837/1039- 959/1127) -45.0 E09-E03 N09-N16
      7  736 1070 (N15E16 L=314)   527    233        0 ( 677/1005- 791/1114) -63.4 E20-E13 N10-N18
      8 1798  962 (S15W51 L= 22)  1194    256        1 (1748/ 860-1844/1076)  37.6 W45-W58 S20-S09
      9 1763 1032 (S10W49 L= 20)   407     53        0 (1737/1008-1788/1053) -36.9 W46-W51 S11-S08
     10  169  946 (N16E67 L=264)  2334    157        5 ( 134/ 868- 211/1011) -77.5 E72-E61 N10-N19
     11 1708  932 (S14W42 L= 13)   575    118        2 (1678/ 876-1733/ 987) -82.9 W40-W44 S18-S10
     12 1284  833 (S09W11 L=342)   348    147        0 (1222/ 796-1330/ 889)  15.9 W07-W15 S11-S06
     13  898  756 (S06E13 L=318)   491    160        1 ( 842/ 719- 954/ 787)  -8.1 E16-E09 S08-S04
     14  628  498 (S17E38 L=293)   323     79        0 ( 598/ 479- 668/ 519) -36.9 E39-E34 S18-S15
     15  669  341 (S29E43 L=288)   450    105        1 ( 620/ 329- 727/ 356) -12.5 E47-E38 S30-S27
  

    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