Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1231 1816 (N52E04 L=194)  1433    234        3 (1203/1741-1273/1878) -79.4 E08-W00 N43-N59
      2  362 1492 (N11E55 L=143)   747    109        2 ( 340/1443- 385/1538) -50.2 E57-E51 N08-N14
      3  540 1492 (N13E40 L=158)   340     91        0 ( 503/1466- 588/1508)  31.0 E41-E36 N11-N14
      4  563 1413 (N09E36 L=162)   433    117        0 ( 534/1356- 600/1481)  82.9 E36-E34 N04-N13
      5 1636 1325 (N24W34 L=232)   833    148        1 (1607/1242-1660/1389) -84.3 W31-W36 N18-N28
      6  918 1335 (N09E12 L=186)   346     72        1 ( 878/1304- 952/1363)   0.0 E14-E09 N08-N11
      7 1873 1240 (N25W57 L=254)  2167    244        2 (1813/1134-1914/1345) -45.0 W50-W61 N19-N31
      8 1031  922 (S12W02 L=200)  1226    328        1 ( 884/ 775-1114/1068)  71.6 E04-W05 S23-S02
      9 1778  985 (N07W50 L=248)   580    124        0 (1741/ 937-1826/1035) -18.4 W45-W55 N05-N09
     10  470  880 (S24E33 L=164)   665    231        0 ( 380/ 819- 548/ 951)  42.3 E40-E28 S28-S18
     11  738  813 (S24E14 L=184)   393     82        0 ( 703/ 764- 761/ 848)  63.4 E15-E12 S27-S21
     12  522  683 (S36E29 L=169)  1149    292        1 ( 411/ 647- 641/ 732)  25.3 E38-E19 S39-S30
     13 1585  574 (S21W47 L=245)  3986    825        1 (1284/ 487-1861/ 641)  23.6 W29-W77 S32-S11
     14 1668  531 (S21W56 L=254)   403     66        1 (1642/ 498-1691/ 562)  78.7 W54-W57 S23-S18
     15 1123  487 (S37W19 L=217)   608    158        1 (1027/ 472-1199/ 503)  24.4 W12-W24 S39-S34
  

    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