Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  727 1648 (N53E00 L=274)   403     45        1 ( 701/1624- 750/1669)  14.0 E02-W02 N50-N55
      2 1222 1611 (N33W33 L=307)  2303    582        6 (1029/1529-1484/1667) -42.4 W22-W46 N20-N42
      3 1631 1617 (N20W64 L=339)   416     59        0 (1597/1600-1658/1636) -36.9 W62-W66 N18-N21
      4  379 1529 (N56E43 L=231)  1645    238        3 ( 260/1474- 466/1568)   0.0 E66-E30 N52-N58
      5 1801 1459 (N06W71 L=345)   702     68        0 (1770/1430-1826/1492)   0.0 W64-W79 N04-N06
      6 1553 1429 (N13W45 L=319)   299     30        1 (1526/1412-1575/1447) -33.7 W42-W46 N11-N14
      7  862 1337 (N28E01 L=273)   236    103        0 ( 812/1314- 909/1352) -45.0 E04-W01 N25-N29
      8 1355 1315 (N13W27 L=302)   329     86        0 (1318/1284-1390/1347) -68.2 W25-W29 N10-N15
      9  344 1194 (N33E43 L=231)   957    269        2 ( 241/1122- 464/1252) -27.6 E55-E32 N26-N38
     10 1824 1087 (S14W55 L=329)   775    145        1 (1806/1019-1841/1166)  54.5 W52-W58 S17-S09
     11  952 1017 (N08E04 L=270)   255    116        1 ( 907/ 992-1008/1061)   0.0 E06-W00 N07-N08
     12  211  928 (N19E61 L=214)   868    140        1 ( 151/ 887- 258/ 954) -21.0 E69-E55 N16-N21
     13  381  934 (N17E43 L=231)   336    126        0 ( 328/ 919- 437/ 953) -18.4 E47-E38 N14-N18
     14 1762  849 (S26W44 L=318)   566    168        1 (1703/ 775-1800/ 905)  15.3 W37-W48 S28-S22
     15 1549  674 (S29W23 L=297)  1260    248        2 (1459/ 599-1606/ 780)  21.0 W15-W28 S32-S23
     16 1802  627 (S43W51 L=325)  1572    159        3 (1741/ 585-1842/ 689)  20.0 W41-W58 S46-S38
     17 1686  623 (S38W35 L=309)   736    113        1 (1651/ 578-1710/ 679)  56.3 W31-W37 S40-S34
     18  794  433 (S22E32 L=242)   310     59        1 ( 776/ 407- 816/ 460)  63.4 E33-E29 S24-S20
     19 1228  305 (S45E11 L=263)  1473    247        2 (1114/ 238-1324/ 381)  10.3 E22-W00 S47-S41
  

    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