Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  996 1834 (N61W31 L=199)   516     91        0 ( 956/1804-1041/1867)   3.6 W24-W41 N59-N62
      2 1296 1805 (N48W54 L=222)   475     50        1 (1272/1773-1320/1827)  16.7 W48-W58 N45-N49
      3 1021 1691 (N49W20 L=188)  1197    167        3 ( 942/1639-1104/1728)  -7.6 W12-W27 N45-N50
      4  412 1592 (N56E48 L=119)   688     72        1 ( 376/1565- 455/1609)   0.0 E56-E41 N54-N57
      5  950 1509 (N38W07 L=174)   306    112        0 ( 891/1496-1005/1521) -26.6 W02-W10 N35-N39
      6 1208 1463 (N29W22 L=190)   600    121        0 (1177/1404-1243/1506) -90.0 W20-W25 N24-N31
      7 1762 1393 (N10W61 L=229)   578     63        0 (1737/1360-1781/1420)  76.0 W58-W64 N08-N12
      8  403 1345 (N38E40 L=128)  1031    157        2 ( 355/1285- 454/1405)  29.1 E44-E35 N33-N41
      9  585 1360 (N36E24 L=144)   233     58        0 ( 564/1335- 616/1383)  21.8 E25-E20 N34-N36
     10  328 1064 (N21E47 L=121)  1381    257        2 ( 291/ 945- 375/1186) -71.6 E50-E43 N13-N28
     11 1053 1092 (N10W03 L=171)   231     55        2 (1033/1072-1080/1122) -76.0 W01-W04 N08-N12
     12  190 1034 (N21E63 L=105)   467     86        0 ( 171/ 986- 205/1067) -51.3 E65-E60 N17-N22
     13 1328  980 (S02W17 L=185)   375    119        0 (1306/ 925-1354/1041)  51.3 W14-W19 S04-N01
     14 1582  866 (S14W31 L=199)   724    223        1 (1519/ 787-1638/ 969)  36.0 W25-W36 S17-S09
     15  287  773 (N04E56 L=112)  1945    264        2 ( 250/ 667- 339/ 883)  56.3 E61-E49 S02-N10
     16 1618  711 (S25W32 L=200)   657    218        0 (1539/ 623-1684/ 775)  24.8 W25-W38 S29-S22
     17 1133  569 (S22E03 L=165)  1343    302        2 (1064/ 446-1200/ 712)  51.3 E10-W03 S29-S14
     18  362  691 (S02E51 L=117)   359     55        0 ( 328/ 678- 393/ 706) -11.3 E53-E47 S02-N00
     19  705  517 (S17E31 L=137)   957    166        2 ( 645/ 456- 754/ 572) -73.3 E34-E28 S22-S12
     20  492  436 (S20E51 L=117)  3760    351        9 ( 397/ 352- 587/ 540) -74.1 E59-E42 S26-S11
     21  785  430 (S25E29 L=139)   773    250        1 ( 699/ 359- 849/ 511)  28.1 E38-E23 S28-S19
     22 1196  357 (S39E04 L=164)   442     57        1 (1165/ 340-1234/ 384) -11.3 E06-E01 S40-S36
     23 1336  256 (S54W05 L=173)  1802    256        2 (1213/ 220-1433/ 304)   2.6 E07-W15 S56-S51
     24  636  256 (S35E53 L=115)  1126    105        0 ( 605/ 220- 663/ 296)  28.6 E59-E47 S38-S32
  

    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