Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1225 1879 (N59W58 L= 38)   511     25        0 (1209/1853-1240/1901)  11.3 W51-W66 N56-N60
      2 1670 1655 (N30W74 L= 54)   677     68        1 (1631/1640-1703/1673) -18.4 W69-W80 N28-N31
      3 1401 1552 (N31W38 L= 18)   477     55        1 (1372/1524-1437/1571)  18.4 W35-W41 N29-N32
      4  689 1333 (N30E18 L=323)  1808    461        3 ( 498/1255- 877/1439) -32.7 E33-E05 N22-N40
      5 1138 1135 (N11W09 L=349)   286     63        1 (1117/1100-1161/1170)  53.1 W07-W10 N09-N13
      6  461 1046 (N15E36 L=304)   286    109        0 ( 427/1007- 512/1072)  23.2 E39-E32 N13-N16
      7  896 1033 (N09E07 L=333)   200     61        0 ( 884/1000- 912/1066)  56.3 E08-E06 N07-N11
      8  269  985 (N13E54 L=286)  1000    209        2 ( 205/ 913- 329/1052) -36.9 E60-E48 N08-N17
      9 1199  802 (S09W07 L=347)   587    131        0 (1180/ 739-1219/ 871)  69.4 W05-W08 S13-S05
     10 1421  737 (S17W20 L=  0)   516    175        0 (1380/ 704-1477/ 776)   0.0 W17-W24 S19-S14
     11  672  598 (S14E29 L=311)   858    286        1 ( 623/ 544- 737/ 662) -82.9 E32-E24 S17-S09
     12  589  509 (S19E38 L=302)   287     75        2 ( 572/ 469- 603/ 545)  78.7 E40-E36 S21-S16
     13  890  394 (S31E21 L=319)  1092    229        1 ( 809/ 334- 977/ 485)  22.4 E29-E12 S35-S25
  

    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