Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1172 1711 (N48W30 L=327)   492     78        0 (1143/1679-1213/1729)   6.3 W25-W34 N46-N49
      2 1293 1624 (N39W34 L=331)   938    140        2 (1239/1573-1344/1672) -83.7 W29-W36 N34-N43
      3 1651 1555 (N26W62 L=359)   627     99        0 (1602/1522-1693/1585) -39.8 W58-W64 N23-N28
      4 1222 1532 (N34W24 L=321)   479    133        0 (1180/1475-1244/1570) -81.9 W22-W26 N30-N37
      5 1140 1507 (N34W17 L=314)   285    107        0 (1118/1460-1168/1556)  81.9 W16-W18 N30-N37
      6 1457 1278 (N14W32 L=329)   223     54        1 (1432/1252-1475/1298) -56.3 W30-W33 N12-N15
      7  241 1131 (N22E58 L=239)   891    192        2 ( 210/1037- 258/1211) -61.4 E63-E55 N16-N27
      8  650 1133 (N18E22 L=275)   736    274        0 ( 533/1083- 773/1185) -26.6 E30-E14 N13-N22
      9 1639  904 (S12W38 L=335)  1483    337        1 (1563/ 784-1704/1053)  42.9 W31-W45 S17-S03
     10  520  974 (N10E33 L=264)   404    129        0 ( 472/ 918- 569/1018) -54.5 E36-E30 N06-N13
     11 1887  906 (S18W66 L=  3)  1255    128        2 (1865/ 835-1900/ 970) -66.0 W62-W69 S22-S13
     12 1170  844 (S07W06 L=303)   731    192        0 (1128/ 737-1217/ 918)  55.0 W01-W09 S12-S02
     13 1630  700 (S25W37 L=334)   413    130        0 (1592/ 645-1661/ 750)  45.0 W33-W39 S27-S21
     14 1083  231 (S51E14 L=284)   455     65        0 (1051/ 217-1115/ 250)  -9.5 E16-E10 S52-S48
  

    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