Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  893 1820 (N38E38 L=100)  1044    151        1 ( 836/1787- 981/1842)  49.4 E41-E32 N34-N42
      2  958 1634 (N26E22 L=116)   308     95        0 ( 940/1595- 978/1685) -74.1 E23-E20 N23-N30
      3  520 1631 (N16E51 L= 87)   424     58        1 ( 498/1601- 542/1663) -78.7 E52-E49 N13-N18
      4 1327 1567 (N33W03 L=141)   616    110        0 (1295/1515-1357/1612) -39.8 W00-W06 N30-N35
      5 1243 1467 (N24W01 L=139)   453    195        1 (1193/1386-1306/1527)  84.8 E01-W02 N18-N29
      6 1516 1396 (N28W20 L=158)   517    133        1 (1482/1335-1553/1457) -45.0 W16-W23 N25-N31
      7  761 1419 (N08E25 L=113)   388     96        2 ( 709/1402- 820/1437)  15.9 E28-E21 N06-N09
      8  227 1167 (S17E58 L= 80)  1067    236        7 ( 193/1068- 259/1247) -84.8 E62-E53 S22-S11
      9  478 1182 (S11E37 L=101)   371     94        0 ( 451/1136- 507/1221)  90.0 E38-E35 S13-S08
     10  693 1180 (S07E23 L=115)   385     83        0 ( 657/1135- 725/1218) -26.6 E25-E19 S08-S04
     11 1781 1125 (N21W46 L=184)   443    110        1 (1750/1074-1809/1178) -26.6 W41-W49 N18-N22
     12  711 1020 (S15E18 L=120)   888    257        3 ( 622/ 960- 826/1067)  13.0 E23-E10 S18-S11
     13 1640 1037 (N11W36 L=174)   398     52        1 (1611/1008-1670/1064)  63.4 W33-W37 N09-N13
     14 1741  933 (N09W46 L=184)   277     33        0 (1728/ 906-1757/ 958)  90.0 W45-W48 N07-N10
     15 1589  581 (S14W49 L=187)  1158    288        1 (1466/ 549-1708/ 644)  40.6 W41-W55 S19-S07
  

    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