Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1269 1628 (N44W08 L=318)   692    118        1 (1237/1576-1301/1679) -60.3 W04-W10 N39-N47
      2  355 1601 (N25E70 L=240)   739     64        2 ( 340/1568- 377/1629) -53.1 E74-E65 N23-N27
      3 1809 1290 (N29W59 L=  9)  2015    330        3 (1710/1184-1884/1421) -37.9 W49-W69 N22-N36
      4 1044 1335 (N19E04 L=307)   249     77        0 (1013/1306-1075/1354)  53.1 E05-E01 N16-N20
      5 1761 1256 (N26W52 L=  2)   436     71        1 (1734/1229-1796/1279) -15.9 W48-W55 N24-N26
      6 1253 1214 (N15W11 L=321)   386    106        0 (1216/1175-1292/1260) -33.7 W08-W14 N13-N17
      7  184  874 (S22E65 L=246)   548     69        2 ( 163/ 833- 204/ 903) -53.1 E67-E61 S24-S20
      8 1383  812 (S07W26 L=336)   248    139        1 (1334/ 785-1456/ 841)  -6.3 W22-W31 S08-S06
      9 1399  679 (S15W30 L=340)   906    241        1 (1328/ 606-1435/ 738)  90.0 W24-W32 S20-S11
     10 1524  699 (S12W38 L=348)   269     74        2 (1498/ 674-1543/ 737)  76.0 W36-W39 S13-S09
     11 1602  636 (S15W47 L=357)   612    131        0 (1548/ 596-1650/ 676)  60.3 W42-W50 S18-S11
     12  764  596 (S31E11 L=299)  1508    421        2 ( 597/ 545- 964/ 653)  25.6 E23-W02 S37-S23
     13 1587  376 (S32W63 L= 13)  2594    197        2 (1496/ 346-1680/ 406)  12.3 W52-W76 S34-S28
     14 1116  338 (S44W22 L=332)  1279    225        3 (1029/ 309-1223/ 366)  23.2 W14-W30 S46-S39
  

    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