Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  772 1730 (N32E35 L=288)   510    141        1 ( 747/1658- 791/1793) -45.0 E40-E30 N27-N37
      2  702 1734 (N31E41 L=283)   394     75        1 ( 675/1700- 723/1764) -45.0 E43-E37 N28-N33
      3 1144 1708 (N39E08 L=315)   489    110        0 (1111/1655-1188/1744)  77.5 E09-E06 N34-N43
      4 1528 1573 (N39W24 L=348)   331     64        0 (1492/1548-1558/1595)  -9.5 W20-W26 N38-N40
      5  744 1435 (N12E25 L=298)   926    337        2 ( 684/1328- 817/1587)  87.0 E27-E23 N04-N23
      6  905 1408 (N13E15 L=309)   340    112        2 ( 886/1360- 932/1457) -80.5 E15-E13 N10-N16
      7 1136 1305 (N12W01 L=325)   275     96        0 (1114/1266-1152/1358)  90.0 W00-W01 N08-N14
      8  787 1217 (S00E17 L=306)   390    125        0 ( 728/1195- 846/1245)   0.0 E21-E13 N00-N00
      9 1925 1177 (N25W68 L= 32)   640     79        0 (1903/1140-1944/1222) -23.2 W64-W72 N22-N26
     10 1680 1177 (N17W39 L=  2)   304     99        0 (1638/1149-1717/1198)  15.9 W35-W42 N14-N17
     11 1547 1127 (N10W29 L=353)   269     80        0 (1525/1092-1568/1165) -53.1 W27-W31 N08-N12
     12  637 1051 (S12E24 L=300)   275    132        0 ( 577/1022- 680/1084)  39.8 E27-E21 S14-S09
     13 1885  938 (N09W63 L= 27)   819    136        4 (1860/ 886-1918/1004) -81.9 W60-W69 N05-N12
     14  831  873 (S19E09 L=315)   400    169        0 ( 792/ 791- 861/ 939)  83.7 E10-E07 S24-S15
     15 1679  459 (S23W66 L= 29)  1514    269        1 (1602/ 345-1730/ 562) -65.0 W60-W70 S31-S16
  

    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