Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1127 1880 (N54E32 L=293)   716     78        0 (1097/1853-1164/1901)  81.9 E36-E27 N49-N56
      2  751 1823 (N35E51 L=273)   653     58        1 ( 732/1797- 775/1854) -16.7 E57-E47 N32-N37
      3  537 1796 (N28E70 L=255)   716     82        0 ( 513/1761- 570/1824) -50.2 E73-E65 N24-N30
      4  721 1508 (N13E32 L=293)  1415    328        1 ( 688/1369- 754/1660) -62.2 E38-E27 N03-N22
      5 1243 1528 (N29E02 L=322)   441    104        0 (1219/1480-1268/1574) -45.0 E05-W00 N26-N31
      6  163 1044 (S26E66 L=259)   546     81        1 ( 146/1006- 175/1083) -78.7 E69-E64 S28-S23
      7  616  714 (S35E17 L=308)  1874    376        4 ( 442/ 674- 784/ 768)  31.0 E31-E06 S42-S27
      8  937  673 (S28W06 L=330)   329    156        0 ( 912/ 610- 962/ 732) -69.4 W04-W08 S31-S23
      9 1290  683 (S17W26 L=350)   434     69        1 (1253/ 650-1330/ 712)  26.6 W23-W28 S18-S15
     10 1113  591 (S27W19 L=344)   905    194        2 (1018/ 566-1201/ 622)  31.0 W13-W23 S30-S23
     11 1435  538 (S20W41 L=  6)   917    139        3 (1391/ 495-1495/ 583)  76.0 W37-W43 S23-S15
     12 1478  481 (S21W48 L= 13)   294     55        0 (1451/ 461-1501/ 499)  76.0 W46-W49 S23-S19
     13  594  339 (S65E10 L=315)  1720    209        4 ( 514/ 300- 668/ 382)   5.0 E24-W00 S69-S58
     14 1462  357 (S28W56 L= 21)   425     83        0 (1413/ 348-1503/ 371)  33.7 W52-W59 S30-S26
  

    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