Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1279 1588 (N40W04 L=141)   557    165        1 (1208/1544-1337/1636) -15.3 E02-W09 N37-N41
      2  636 1544 (N22E38 L= 98)   590    134        1 ( 614/1497- 669/1609) -58.0 E41-E34 N18-N26
      3  648 1447 (N16E33 L=103)   312     54        2 ( 626/1424- 675/1472) -11.3 E35-E30 N14-N17
      4 1815 1403 (N41W62 L=199)   787     73        1 (1783/1368-1841/1430) -20.6 W56-W66 N38-N42
      5  309 1217 (S04E53 L= 84)  1016    128        5 ( 251/1186- 367/1246)  26.6 E58-E47 S06-S01
      6 1724 1073 (N16W46 L=183)   485    100        3 (1701/1030-1749/1119)  66.8 W44-W48 N12-N19
      7 1773 1000 (N13W52 L=189)   439     39        0 (1758/ 969-1789/1034) -76.0 W50-W53 N10-N14
      8 1025  911 (S08W02 L=139)   211     70        0 (1001/ 881-1053/ 935)  63.4 W01-W03 S10-S06
      9 1108  840 (S11W09 L=145)   272    114        2 (1076/ 808-1166/ 865)  31.0 W07-W12 S12-S08
     10 1031  804 (S14W05 L=142)   242    132        1 (1008/ 739-1059/ 859)  90.0 W04-W05 S18-S10
     11  810  711 (S25E07 L=130)   211     91        0 ( 768/ 684- 847/ 741)  45.0 E09-E04 S27-S22
     12 1706  589 (S13W60 L=196)   515     73        3 (1676/ 564-1727/ 631)  78.7 W57-W62 S14-S09
     13 1774  583 (S11W69 L=206)   574     46        2 (1754/ 562-1795/ 612) -56.3 W66-W74 S12-S09
     14 1534  350 (S31W62 L=198)   488    102        0 (1480/ 340-1583/ 359)  14.0 W55-W67 S32-S29
  

    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