Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  236 1245 (N37E53 L=336)   450    155        0 ( 199/1228- 276/1267) -24.0 E57-E48 N35-N39
      2 1230 1209 (N12W17 L= 46)   558    157        2 (1140/1165-1303/1237) -41.2 W11-W19 N08-N15
      3 1878 1092 (S14W61 L= 91)  1589    327        4 (1836/ 980-1916/1213)  32.0 W53-W69 S18-S08
      4 1822 1109 (S11W55 L= 85)   453     76        1 (1802/1075-1837/1151)  63.4 W52-W57 S12-S08
      5 1258 1070 (N04W14 L= 44)   399    119        2 (1213/1018-1291/1139)  35.5 W10-W17 N01-N06
      6  729 1099 (N18E16 L= 14)   232     37        1 ( 708/1074- 756/1122) -45.0 E16-E14 N16-N20
      7  407  946 (N16E41 L=349)   318     84        1 ( 389/ 916- 433/ 983)  76.0 E42-E39 N14-N18
      8  199  867 (N15E62 L=327)   666    135        1 ( 168/ 818- 234/ 909) -50.2 E64-E59 N11-N17
      9  428  841 (N10E42 L=348)   707    234        2 ( 371/ 794- 469/ 901)  21.8 E47-E37 N06-N12
     10 1840  813 (S30W51 L= 81)  1236    238        1 (1757/ 745-1880/ 900)  19.7 W42-W56 S31-S25
     11  984  689 (S11E11 L= 19)   581    170        0 ( 950/ 622-1018/ 780)  45.0 E14-E06 S14-S06
     12 1562  545 (S37W23 L= 53)   730    128        3 (1511/ 503-1610/ 589)   6.3 W18-W27 S39-S35
     13 1448  494 (S37W13 L= 43)   281     63        1 (1420/ 477-1476/ 513) -45.0 W11-W15 S39-S35
     14  399  470 (S12E59 L=331)   771     82        1 ( 365/ 443- 441/ 502) -45.0 E61-E55 S14-S09
     15  481  347 (S22E59 L=330)   639    122        1 ( 445/ 331- 518/ 364)   0.0 E63-E54 S23-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