Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  909 1701 (N47E16 L=252)   266     23        0 ( 888/1685- 934/1714)  14.0 E17-E13 N45-N48
      2 1237 1623 (N43W14 L=281)  2462    518        4 ( 988/1568-1438/1681)  -6.2 E07-W31 N39-N46
      3 1724 1520 (N37W61 L=328)  1515    139        2 (1689/1455-1771/1569)  19.2 W53-W78 N32-N40
      4  353 1519 (N29E60 L=208)   464     42        1 ( 331/1498- 374/1545)  45.0 E61-E56 N27-N30
      5 1801 1288 (N22W59 L=327)  1275    228        0 (1752/1229-1845/1347) -45.0 W54-W65 N17-N25
      6 1175 1156 (N11W09 L=276)  1923    437        3 (1123/ 939-1207/1339) -78.2 W04-W10 S02-N22
      7  462 1148 (N07E38 L=230)  1647    357        5 ( 407/ 994- 505/1311) -71.6 E44-E33 S02-N16
      8  631 1176 (N09E26 L=242)   586    166        0 ( 610/1116- 660/1246) -76.0 E27-E23 N05-N13
      9  701  770 (S15E19 L=248)  1136    403        0 ( 637/ 615- 745/ 941)  74.1 E24-E16 S25-S04
     10 1371  641 (S20W25 L=293)   238     78        0 (1337/ 627-1408/ 661) -21.8 W22-W27 S20-S18
     11  990  494 (S32W01 L=268)   359     80        0 ( 950/ 472-1030/ 519)  36.9 E02-W03 S33-S29
     12 1664  450 (S32W60 L=327)  1663    122        4 (1611/ 417-1728/ 475)  -3.2 W51-W69 S34-S30
     13 1476  367 (S39W44 L=311)   563     64        1 (1441/ 352-1509/ 386) -12.5 W39-W48 S40-S37
     14  617  275 (S54E39 L=229)  2106    228        4 ( 530/ 242- 716/ 309)  10.4 E64-E25 S59-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