Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  707 1598 (N45E08 L=283)   327     56        0 ( 683/1573- 731/1620)  26.6 E10-E05 N43-N46
      2 1779 1545 (N14W71 L=  2)   816    151        2 (1760/1520-1798/1573)  15.9 W67-W74 N12-N15
      3  852 1448 (N31E01 L=290)   249     73        0 ( 805/1432- 896/1461)  -9.5 E04-W02 N30-N32
      4 1306 1264 (N10W22 L=313)   751    195        4 (1216/1235-1407/1296) -24.4 W16-W27 N06-N12
      5  911 1206 (N15E03 L=289)  1247    321        1 ( 744/1167-1061/1240) -11.9 E13-W06 N10-N18
      6  982 1106 (N08E01 L=291)   195     92        0 ( 946/1059-1016/1145)  31.0 E03-W02 N06-N09
      7  513 1115 (N18E29 L=262)   216     84        0 ( 474/1105- 556/1128)  -9.5 E32-E26 N17-N19
      8 1639 1011 (S12W37 L=329)   419     94        1 (1620/ 959-1657/1063)  63.4 W35-W39 S14-S08
      9 1770  995 (S16W48 L=339)   608    105        0 (1749/ 940-1790/1055)  50.2 W45-W50 S18-S12
     10  150  994 (N18E63 L=228)   948    239        2 (  98/ 957- 201/1018) -14.0 E69-E57 N15-N19
     11  439  948 (N10E37 L=254)   530    141        0 ( 386/ 879- 492/1003) -60.9 E40-E34 N05-N14
     12  298  850 (N07E51 L=240)   671     83        2 ( 275/ 807- 330/ 888)  38.7 E54-E48 N04-N09
     13 1235  702 (S20W05 L=297)  1612    482        3 (1165/ 532-1307/ 871)  57.7 E02-W10 S29-S10
     14  503  646 (S08E41 L=250)   327     63        2 ( 482/ 617- 524/ 677)  76.0 E42-E39 S10-S06
     15  437  571 (S11E49 L=242)   910    151        3 ( 407/ 503- 472/ 639)  58.0 E52-E45 S15-S07
     16  631  528 (S18E36 L=255)  1184    310        4 ( 584/ 407- 675/ 637)  65.0 E42-E33 S25-S10
     17  319  527 (S12E62 L=229)  2289    255        4 ( 272/ 461- 374/ 599) -71.6 E66-E58 S16-S07
     18  699  565 (S17E30 L=261)   391     88        2 ( 673/ 520- 726/ 596) -90.0 E32-E27 S20-S14
     19 1102  335 (S42E14 L=277)   464     78        2 (1077/ 302-1124/ 374)  80.5 E15-E11 S44-S38
     20  792  261 (S39E40 L=252)   322     64        0 ( 772/ 231- 807/ 284)  53.1 E41-E37 S41-S37
     21 1022  207 (S51E28 L=263)   919    148        1 ( 988/ 165-1066/ 251)  24.8 E34-E21 S53-S47
  

    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