Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1025 1670 (N31E19 L=139)  1473    333        1 ( 960/1550-1121/1731)  90.0 E24-E12 N22-N36
      2 1383 1642 (N41W06 L=164)   937    235        0 (1293/1558-1467/1704) -17.4 E03-W13 N37-N43
      3  418 1625 (N15E61 L= 98)  1217    148        4 ( 381/1556- 444/1687) -51.3 E67-E56 N09-N19
      4  563 1630 (N17E48 L=111)   930    180        2 ( 472/1595- 641/1664)   7.6 E55-E40 N14-N19
      5 1814 1212 (N27W49 L=208)   562     84        1 (1793/1177-1835/1255) -78.7 W46-W51 N24-N29
      6 1046 1110 (S02E01 L=158)   451    181        2 (1008/1021-1077/1192) -58.0 E04-W02 S06-N02
      7  642 1067 (S14E23 L=135)   225     68        0 ( 603/1045- 678/1087)  36.9 E25-E21 S15-S12
      8 1797  942 (N11W52 L=211)  1286    265        3 (1737/ 849-1846/1072) -32.7 W43-W59 N06-N16
      9  397  783 (S36E38 L=121)   784    168        0 ( 331/ 747- 453/ 856)  39.3 E44-E33 S39-S30
     10 1000  825 (S19W04 L=162)   227     46        0 ( 971/ 803-1028/ 848)   0.0 W01-W05 S19-S17
     11 1824  731 (N01W63 L=222)   527     27        0 (1798/ 711-1845/ 753)  33.7 W60-W66 N00-N02
     12 1714  662 (S07W55 L=214)   839    103        2 (1677/ 626-1752/ 705)  -5.7 W50-W60 S08-S05
     13 1501  381 (S28W57 L=215)  1209    239        1 (1384/ 355-1599/ 412)  29.4 W47-W63 S32-S23
     14  753  272 (S64W09 L=168)  1714    177        4 ( 693/ 233- 845/ 337)  -2.7 W00-W21 S67-S59
  

    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