Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1175 1713 (N48W30 L=327)   496     73        1 (1147/1680-1213/1737)   7.1 W26-W34 N46-N49
      2 1298 1626 (N39W35 L=331)  1013    141        2 (1248/1574-1352/1676) -83.7 W30-W37 N34-N43
      3 1653 1557 (N26W62 L=359)   676    101        0 (1606/1524-1695/1589) -50.2 W58-W65 N23-N29
      4 1225 1555 (N36W25 L=322)   300     79        0 (1188/1526-1252/1571) -26.6 W22-W27 N33-N37
      5 1146 1508 (N34W18 L=314)   321    105        0 (1123/1461-1175/1557) -90.0 W16-W19 N30-N37
      6  246 1131 (N22E57 L=239)   855    176        1 ( 213/1039- 263/1207) -59.0 E62-E55 N16-N26
      7  660 1134 (N18E22 L=275)   774    281        0 ( 538/1085- 785/1185) -25.2 E30-E13 N13-N22
      8  526  974 (N10E33 L=264)   406    134        0 ( 476/ 915- 575/1018) -54.5 E35-E29 N05-N13
      9 1644  902 (S12W39 L=335)  1417    253        1 (1572/ 793-1700/1007)  45.0 W32-W44 S17-S06
     10 1891  907 (S18W66 L=  3)  1267    121        1 (1868/ 838-1908/ 968) -66.0 W62-W70 S22-S13
     11 1178  846 (S07W07 L=303)   715    185        3 (1134/ 740-1219/ 920)  55.0 W02-W09 S12-S02
     12 1640  709 (S24W38 L=334)   479    135        1 (1602/ 649-1672/ 762)  45.0 W34-W40 S27-S20
     13 1088  231 (S51E13 L=283)   443     54        2 (1056/ 213-1119/ 249)  -8.1 E16-E09 S52-S49
  

    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