Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  797 1575 (N19E29 L=179)   238    107        0 ( 746/1546- 840/1592)   8.1 E32-E25 N17-N19
      2  347 1405 (S01E55 L=154)   591    124        2 ( 294/1362- 398/1437)  35.5 E58-E51 S04-N01
      3  653 1379 (N04E31 L=178)   212     43        2 ( 630/1357- 677/1399)  45.0 E32-E29 N02-N04
      4 1407 1319 (N20W14 L=223)   322     78        2 (1366/1289-1445/1337)  38.7 W11-W16 N18-N22
      5  204 1284 (S10E65 L=144)   833    199        2 ( 167/1232- 235/1314) -78.7 E71-E61 S13-S08
      6  361 1265 (S09E48 L=161)   474     95        3 ( 334/1225- 384/1306)  78.7 E51-E46 S11-S06
      7  436 1204 (S11E41 L=168)   235     60        1 ( 409/1188- 463/1230)  33.7 E42-E39 S12-S09
      8  521 1164 (S11E33 L=175)   293    134        1 ( 484/1100- 542/1224)  82.9 E34-E31 S15-S07
      9  344 1110 (S18E45 L=163)   353    110        1 ( 328/1077- 369/1149) -45.0 E47-E42 S20-S16
     10 1637 1052 (N12W35 L=244)   255     84        1 (1618/1009-1660/1092)  90.0 W34-W36 N09-N15
     11 1733  971 (N11W45 L=254)   612    202        3 (1702/ 908-1763/1054) -66.0 W41-W47 N06-N15
     12 1137  979 (S06W07 L=216)   427    190        1 (1055/ 951-1208/ 997)  18.4 W02-W11 S08-S04
     13  952  937 (S14E02 L=207)   376    173        0 ( 891/ 857- 990/ 990) -45.0 E06-W01 S18-S11
     14 1327  812 (S10W23 L=232)   312    104        2 (1277/ 793-1371/ 832)  38.7 W20-W25 S12-S07
     15  528  762 (S35E25 L=184)   317     76        1 ( 501/ 740- 570/ 791) -11.3 E27-E21 S35-S33
     16  854  688 (S30E01 L=208)   202     73        2 ( 822/ 668- 887/ 717) -14.0 E03-W01 S31-S29
     17 1422  552 (S21W39 L=248)  1995    676        5 (1134/ 515-1680/ 592)  19.3 W19-W59 S28-S12
     18 1676  417 (S18W67 L=276)  1044    284        4 (1643/ 355-1695/ 460) -24.0 W61-W72 S21-S16
     19 1501  399 (S26W53 L=262)  1163    315        2 (1361/ 378-1606/ 423)  26.6 W42-W60 S30-S21
     20 1407  260 (S37W57 L=266)   739    221        0 (1346/ 227-1458/ 287)  15.3 W50-W62 S38-S35
  

    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