Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1212 1656 (N40W32 L=297)   944    147        2 (1158/1607-1270/1713) -90.0 W29-W34 N35-N45
      2 1749 1487 (N15W65 L=331)  5621    738       20 (1641/1354-1863/1607) -55.6 W57-W79 N03-N23
      3  792 1374 (N33E07 L=258)  1523    370        3 ( 689/1229- 872/1492) -24.1 E13-E04 N22-N42
      4 1461 1411 (N19W37 L=302)   499    130        3 (1408/1357-1502/1450) -81.9 W34-W39 N15-N22
      5 1843 1187 (S04W62 L=327)  2042    410        1 (1770/1070-1923/1319) -67.6 W57-W69 S13-N04
      6  406 1020 (N18E40 L=225)  4421   1046        8 ( 141/ 810- 775/1220) -13.9 E65-E18 N00-N32
      7 1198 1185 (N13W14 L=279)   229     78        0 (1150/1172-1238/1201) -45.0 W11-W15 N10-N14
      8 1590  832 (S17W31 L=296)  1806    312        2 (1501/ 698-1641/1004)  47.0 W23-W37 S23-S07
      9  266  911 (N13E55 L=210)   332     73        2 ( 240/ 887- 286/ 937) -53.1 E56-E53 N11-N15
     10  658  693 (S05E29 L=236)   518    194        0 ( 572/ 662- 746/ 717)   0.0 E35-E23 S06-S04
     11  490  456 (S18E50 L=215)  1223    260        4 ( 405/ 379- 593/ 527) -59.7 E55-E44 S24-S12
     12 1411  453 (S38W13 L=278)   404     38        1 (1387/ 433-1435/ 478) -63.4 W11-W15 S40-S36
     13  473  368 (S24E57 L=208)   782    108        2 ( 434/ 317- 526/ 403) -69.4 E59-E54 S28-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