Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1270 1764 (N56W30 L=164)  1124    223        0 (1167/1734-1368/1799)   6.1 W17-W46 N53-N58
      2 1165 1552 (N38W12 L=146)   517     78        3 (1130/1527-1212/1580)   9.5 W09-W15 N36-N40
      3  456 1420 (N29E43 L= 91)  1800    342        1 ( 341/1304- 548/1528) -24.1 E62-E32 N21-N35
      4 1365 1505 (N34W27 L=162)   298     75        0 (1331/1483-1406/1521)   9.5 W24-W30 N32-N35
      5  893 1254 (N18E08 L=126)   479    187        0 ( 848/1176- 954/1306)  53.1 E11-E04 N13-N21
      6  163 1236 (N16E73 L= 61)   960     61        2 ( 143/1204- 181/1269) -16.7 E79-E69 N13-N17
      7 1019 1225 (N16E00 L=134)   228     61        2 ( 986/1207-1049/1242)  18.4 E02-W01 N15-N17
      8  596 1030 (N04E27 L=107)   853    212        0 ( 521/ 955- 685/1091)  32.5 E32-E21 N00-N08
      9  522  859 (S06E33 L=101)   309     68        0 ( 494/ 840- 549/ 884)  36.9 E35-E30 S07-S04
     10  461  621 (S22E41 L= 93)  2008    398        3 ( 353/ 444- 537/ 738)  35.0 E64-E33 S35-S13
     11 1340  561 (S27W21 L=156)  2056    424        6 (1176/ 437-1455/ 693)  41.6 W10-W28 S35-S17
     12  869  514 (S29E12 L=123)  1629    538        4 ( 705/ 379-1083/ 689)  36.3 E27-W03 S39-S17
     13 1153  423 (S36W09 L=143)   584    104        3 (1111/ 386-1191/ 470) -74.1 W05-W11 S39-S32
     14 1056  391 (S39W01 L=136)   734    124        2 (1007/ 344-1101/ 429)  39.8 E02-W04 S42-S35
  

    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