Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1136 1881 (N57E32 L=  1)   932     74        2 (1104/1849-1167/1912) -21.8 E40-E25 N53-N60
      2 1502 1706 (N57W16 L= 49)   563     73        1 (1480/1661-1523/1735)  77.5 W13-W19 N51-N61
      3  418 1647 (N17E65 L=328)   486     51        1 ( 396/1623- 446/1668)   0.0 E68-E61 N15-N18
      4 1707 1570 (N54W44 L= 77)   704     73        2 (1681/1532-1727/1603) -90.0 W40-W49 N49-N56
      5  394 1394 (N01E51 L=342)   295     58        0 ( 363/1380- 424/1414)  33.7 E53-E48 N00-N02
      6 1676 1101 (N18W38 L= 71)   495    126        0 (1648/1038-1712/1143)  82.9 W37-W41 N13-N21
      7 1761  964 (N13W49 L= 82)   898    184        1 (1697/ 925-1804/1037)  60.3 W43-W53 N10-N17
      8 1879  902 (N14W65 L= 98)  2360    252        6 (1809/ 817-1932/1011)  49.4 W57-W73 N07-N21
      9  241  886 (S32E54 L=338)  1672    272        7 ( 182/ 792- 284/ 997)  66.8 E64-E49 S38-S24
     10  601  879 (S24E22 L= 11)   296     82        1 ( 560/ 865- 642/ 895)  31.0 E24-E18 S25-S22
     11  367  840 (S32E40 L=353)   501    150        1 ( 306/ 803- 433/ 874)  26.6 E46-E34 S35-S28
     12  501  798 (S31E28 L=  5)   320    113        0 ( 463/ 776- 543/ 831)   8.1 E31-E24 S32-S28
     13 1228  395 (S34W36 L= 69)   674    107        2 (1187/ 371-1293/ 424)  33.7 W32-W40 S37-S31
     14  792  296 (S58W12 L= 45)   375     83        1 ( 760/ 268- 838/ 322)  -5.2 W07-W18 S59-S56
  

    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