Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1353 1757 (N50E01 L=273)   373     63        1 (1323/1742-1383/1772)  21.8 E04-W01 N47-N52
      2  576 1681 (N21E49 L=225)   429     70        2 ( 543/1663- 608/1696)  14.0 E52-E46 N19-N21
      3  850 1468 (N13E22 L=252)   808    330        0 ( 805/1364- 901/1618) -45.0 E29-E15 N08-N22
      4  195 1183 (S16E62 L=213)  4884    767       17 ( 122/1004- 274/1352)  79.7 E69-E55 S27-S05
      5  302 1167 (S15E50 L=224)   625    157        1 ( 254/1130- 338/1194) -38.2 E54-E46 S16-S13
      6  712  991 (S17E17 L=257)   846    282        1 ( 590/ 957- 870/1022)  19.4 E24-E07 S19-S13
      7  193  949 (S30E57 L=218)  1101    238        2 ( 136/ 923- 255/ 984)   4.4 E63-E50 S31-S27
      8  391  945 (S27E39 L=236)   553    169        3 ( 334/ 926- 466/ 968)  20.0 E43-E32 S28-S23
      9 1371  858 (S07W24 L=298)   683    182        2 (1320/ 761-1415/ 924) -37.9 W19-W28 S11-S04
     10  900  810 (S22E01 L=273)  1493    574        1 ( 620/ 712-1149/ 893)  14.8 E19-W15 S30-S16
     11 1360  595 (S21W33 L=307)   351     97        0 (1329/ 552-1393/ 630) -15.9 W29-W36 S22-S19
     12 1089  474 (S36W22 L=296)   723    137        1 (1036/ 425-1135/ 524) -21.8 W16-W26 S38-S34
     13 1610  411 (S22W61 L=335)   423     62        1 (1590/ 388-1633/ 437)  71.6 W58-W62 S23-S20
  

    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