Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  793 1508 (N41E05 L=352)  1721    363        0 ( 683/1448- 954/1615) -45.0 E13-W05 N33-N51
      2 1209 1357 (N22W19 L= 16)   252    102        0 (1193/1312-1228/1404)  71.6 W17-W21 N19-N25
      3  248 1294 (N36E59 L=298)  1362    184        4 ( 178/1244- 324/1332)  -6.8 E73-E48 N32-N38
      4  451 1154 (N25E36 L=321)   864    154        2 ( 386/1090- 490/1201) -48.8 E41-E32 N20-N28
      5  350 1007 (N17E46 L=311)   284    103        0 ( 331/ 962- 380/1038)  63.4 E47-E42 N14-N18
      6  486  981 (N14E35 L=322)   243     89        0 ( 456/ 947- 516/1015) -59.0 E36-E33 N11-N16
      7  201  935 (N14E62 L=295)   817    149        4 ( 178/ 864- 224/ 999) -77.5 E65-E59 N09-N18
      8  603  966 (N11E27 L=330)   393    132        1 ( 542/ 930- 652/ 998)  14.0 E31-E23 N09-N12
      9  837  688 (S09E18 L=339)   775    299        2 ( 727/ 606- 913/ 770)  25.0 E26-E11 S12-S05
     10  486  637 (S07E43 L=314)   254     43        0 ( 463/ 623- 517/ 654) -14.0 E44-E40 S07-S05
     11 1461  556 (S32W19 L= 16)   362     84        1 (1423/ 529-1502/ 584)   0.0 W16-W22 S33-S29
     12 1721  557 (S40W45 L= 42)   472     43        1 (1702/ 528-1737/ 581)  76.0 W42-W48 S42-S38
     13  366  489 (S15E61 L=296)   756    111        3 ( 313/ 473- 418/ 511)   0.0 E69-E54 S16-S13
     14 1302  433 (S37W06 L=  3)   501     88        1 (1271/ 404-1333/ 465)  31.0 W03-W08 S38-S34
     15  959  317 (S37E23 L=334)   386     66        0 ( 937/ 285- 981/ 350)  33.7 E25-E19 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