Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1189 1809 (N50E07 L=194)  1194    212        2 (1157/1741-1228/1869) -65.2 E10-E04 N43-N56
      2  326 1490 (N11E58 L=143)   843    111        3 ( 304/1442- 351/1540) -74.1 E60-E55 N07-N14
      3  496 1361 (N05E39 L=162)   502    128        1 ( 472/1288- 525/1420)  82.9 E40-E37 N00-N08
      4 1592 1351 (N24W30 L=231)   824    132        3 (1564/1280-1622/1406) -69.4 W28-W32 N19-N28
      5  868 1346 (N09E15 L=186)   397     77        0 ( 824/1315- 905/1375)   0.0 E17-E12 N07-N11
      6 1851 1238 (N24W54 L=255)  1827    207        2 (1810/1149-1894/1329) -55.0 W49-W59 N19-N29
      7  959 1172 (N01E06 L=195)   219     62        0 ( 917/1154- 995/1190)  26.6 E08-E04 S01-N02
      8  987  943 (S12E01 L=200)   960    305        0 ( 866/ 805-1057/1077)  75.3 E05-W01 S22-S03
      9 1749  992 (N06W47 L=248)   510    121        2 (1707/ 946-1789/1036) -26.6 W43-W51 N04-N08
     10  429  889 (S24E37 L=164)   700    248        1 ( 334/ 829- 505/ 972)  40.2 E44-E31 S28-S17
     11  691  826 (S24E17 L=184)   351     61        1 ( 671/ 789- 713/ 860)  90.0 E18-E15 S26-S21
     12 1375  785 (S14W26 L=227)   202     84        1 (1338/ 771-1417/ 808)  11.3 W23-W28 S14-S12
     13  493  704 (S35E31 L=170)  1083    218        3 ( 407/ 665- 581/ 750)  26.6 E38-E24 S38-S30
     14 1504  575 (S23W41 L=242)  4751   1060        7 (1060/ 482-1865/ 655)  23.2 W14-W78 S38-S10
  

    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