Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  939 1642 (N32E14 L= 49)   270     88        0 ( 900/1621- 979/1660)  -9.5 E17-E11 N30-N32
      2  298 1471 (N15E59 L=  5)  7782      0       19 ( 193/1338- 403/1607)  77.5 E78-E49 N06-N24
      3 1845 1398 (N30W61 L=124)   574     74        0 (1817/1366-1862/1441) -53.1 W58-W64 N28-N32
      4 1684 1162 (N11W41 L=104)   738    176        3 (1651/1078-1725/1252)  70.0 W38-W44 N06-N17
      5  398 1236 (N01E43 L= 21)   305     85        0 ( 355/1220- 441/1251)   0.0 E45-E39 N00-N01
      6 1831 1146 (N13W54 L=118)  1167    153        1 (1784/1081-1871/1208) -45.0 W49-W59 N09-N16
      7  637 1088 (S06E24 L= 39)   372    134        0 ( 616/1017- 658/1149)  82.9 E24-E22 S10-S02
      8  165 1063 (S10E63 L=  0)  2063    170        6 ( 102/1017- 219/1118)  21.0 E73-E56 S13-S07
      9  230  970 (S16E56 L=  8)   339     55        1 ( 210/ 944- 248/1002)  90.0 E57-E53 S17-S13
     10 1362  911 (S08W22 L= 85)   391    169        0 (1326/ 838-1387/ 989)  83.7 W20-W22 S12-S03
     11  726  936 (S14E17 L= 46)   335    110        0 ( 685/ 889- 748/ 984) -51.3 E19-E15 S16-S11
     12  200  876 (S22E60 L=  4)  2146    330        3 (  85/ 833- 360/ 913)   7.1 E83-E43 S23-S18
     13  419  751 (S28E39 L= 24)  1628    336        3 ( 312/ 640- 516/ 885)  37.3 E52-E30 S35-S19
     14 1879  840 (S03W65 L=128)   560     72        0 (1851/ 804-1901/ 869) -18.4 W60-W68 S04-S01
     15 1328  734 (S19W23 L= 86)   855    335        0 (1224/ 680-1420/ 817)  32.5 W15-W27 S22-S12
     16 1812  585 (S19W69 L=133)  1178    102        3 (1765/ 540-1850/ 628) -68.2 W62-W76 S20-S15
     17  958  448 (S42W04 L= 67)  2798    541       10 ( 731/ 406-1205/ 494)  12.9 E14-W21 S45-S37
     18 1666  401 (S32W67 L=130)   613     91        1 (1634/ 365-1692/ 443) -50.2 W61-W70 S35-S29
     19 1448  424 (S36W43 L=106)   268     71        0 (1407/ 401-1479/ 441)   0.0 W38-W46 S36-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