Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  448 1651 (N17E60 L=  3)  2908    333        6 ( 392/1549- 519/1797) -46.6 E72-E53 N10-N28
      2 1506 1483 (N36W18 L= 81)  2351    504        5 (1397/1262-1623/1668) -41.2 W05-W30 N25-N47
      3  510 1593 (N14E50 L= 13)   311     47        1 ( 484/1577- 538/1608)  33.7 E52-E48 N13-N15
      4  310 1509 (N05E65 L=359)  2493    255        5 ( 197/1461- 410/1574)  17.7 E82-E54 N01-N10
      5  893 1444 (N15E19 L= 44)   351    126        0 ( 841/1403- 925/1475)   0.0 E22-E16 N13-N16
      6  617 1380 (N04E33 L= 30)   715    162        3 ( 545/1345- 679/1428)  53.1 E37-E30 N00-N08
      7 1346 1394 (N25W09 L= 72)   380    159        0 (1287/1337-1409/1428)  -6.3 W04-W13 N23-N26
      8 1859 1323 (N39W57 L=121)   595     69        1 (1815/1308-1894/1340)  17.4 W50-W66 N36-N41
      9 1777 1174 (N25W46 L=109)  1402    287        3 (1721/1095-1855/1289) -42.0 W39-W55 N21-N30
     10  240 1238 (S12E59 L=  4)   372     75        0 ( 219/1199- 254/1267) -36.9 E62-E57 S13-S09
     11 1457 1231 (N18W19 L= 83)   230     41        0 (1436/1203-1473/1256) -18.4 W17-W20 N16-N19
     12  544 1190 (S08E32 L= 31)   321    138        0 ( 511/1133- 566/1241) -63.4 E35-E30 S11-S05
     13 1329 1167 (N11W13 L= 77)   218     94        1 (1297/1128-1363/1199) -18.4 W10-W16 N09-N12
     14  401 1136 (S14E41 L= 22)   279     84        0 ( 365/1098- 425/1156) -11.3 E44-E39 S15-S12
     15  147 1032 (S25E67 L=356)  2165    188        6 ( 103/ 983- 203/1113)  58.0 E76-E58 S28-S20
     16 1140  868 (S10W11 L= 74)   222     41        1 (1112/ 849-1168/ 886)  33.7 W08-W11 S11-S08
     17 1862  787 (N07W65 L=129)  1109    137        4 (1822/ 737-1903/ 841)  56.3 W61-W71 N02-N11
     18 1722  712 (S02W53 L=117)  1841    167        7 (1676/ 640-1774/ 795) -33.7 W47-W59 S05-N01
     19 1885  742 (N06W72 L=135)   813     81        3 (1866/ 705-1902/ 780)  78.7 W68-W76 N03-N08
  

    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