Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1423 1500 (N30W35 L=299)   429     90        1 (1386/1461-1458/1533) -80.5 W32-W37 N26-N32
      2 1636 1414 (N21W49 L=312)   671    106        2 (1594/1372-1677/1463) -60.3 W46-W51 N17-N24
      3 1768 1287 (N11W57 L=321)   963    170        3 (1730/1239-1805/1331) -56.3 W53-W61 N07-N13
      4  876 1280 (N23E07 L=257)   334    106        0 ( 830/1233- 918/1325) -54.5 E09-E04 N19-N26
      5  399 1143 (N19E42 L=222)  1943    492        5 ( 272/1031- 541/1275) -36.5 E53-E30 N10-N27
      6 1767 1187 (N05W55 L=318)   517     82        1 (1748/1142-1788/1224) -80.5 W53-W56 N01-N07
      7  257 1025 (N12E55 L=208)   413     98        0 ( 226/ 983- 275/1053) -38.7 E58-E53 N09-N13
      8 1833  895 (S14W57 L=321)   616    103        2 (1817/ 836-1850/ 939) -81.9 W55-W59 S18-S11
      9 1466  710 (S19W25 L=288)  1979    446        6 (1335/ 570-1551/ 867)  50.5 W15-W31 S27-S10
     10  474  732 (S07E40 L=223)   823    203        3 ( 429/ 687- 518/ 791) -56.3 E42-E36 S10-S03
     11  812  671 (S14E18 L=246)   844    343        2 ( 688/ 590- 910/ 763)  25.2 E27-E10 S17-S08
     12  562  644 (S13E35 L=228)   291     99        0 ( 549/ 606- 584/ 682)  45.0 E36-E32 S15-S10
     13  326  574 (S17E58 L=205)   443     65        0 ( 300/ 539- 356/ 604) -59.0 E59-E55 S19-S14
  

    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