Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  987 1798 (N52E22 L=164)   685    124        1 ( 921/1778-1051/1812)  26.6 E27-E16 N49-N54
      2  611 1596 (N29E41 L=145)  2024    313        3 ( 484/1509- 744/1676) -11.3 E57-E27 N25-N32
      3  854 1380 (N19E16 L=170)   222     81        0 ( 823/1348- 876/1427) -45.0 E19-E14 N16-N21
      4  731 1343 (N15E23 L=163)   295    114        0 ( 688/1298- 760/1378) -33.7 E26-E20 N12-N16
      5  201 1322 (N06E68 L=118)   539     65        2 ( 179/1286- 222/1352) -26.6 E72-E63 N03-N07
      6  223 1223 (S00E61 L=125)   498     65        1 ( 194/1192- 257/1247)  33.7 E65-E57 S01-N01
      7 1806 1066 (N14W55 L=241)  1166    201        1 (1782/ 976-1841/1146) -84.3 W52-W59 N08-N18
      8 1763 1034 (N11W51 L=237)  1119    208        0 (1742/ 937-1793/1134) -76.0 W48-W54 N05-N17
      9 1644  970 (N06W41 L=227)  1094    262        3 (1620/ 843-1665/1094) -69.0 W37-W43 S01-N12
     10 1859  968 (N09W62 L=248)   495     67        1 (1842/ 940-1879/1001) -31.0 W60-W65 N07-N10
     11  822  724 (S21E08 L=178)  1309    486        0 ( 617/ 667- 972/ 829)  31.8 E21-W00 S27-S12
     12 1766  643 (S12W62 L=248)  1883    291        0 (1691/ 532-1835/ 772)  76.0 W59-W64 S19-S03
     13  989  269 (S52W15 L=201)   329     38        1 ( 970/ 241-1003/ 296) -68.2 W12-W16 S54-S49
     14 1033  240 (S54W21 L=207)   389     40        1 (1013/ 214-1048/ 267) -45.0 W18-W23 S56-S50
  

    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