Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  464 1712 (N23E60 L= 40)   557     94        0 ( 446/1692- 490/1737) -23.2 E62-E55 N21-N25
      2  305 1392 (N00E57 L= 43)   462    101        0 ( 271/1351- 350/1426)  38.7 E59-E53 S02-N02
      3  480 1323 (S01E40 L= 60)  1179    262        0 ( 402/1257- 585/1401) -10.0 E48-E31 S04-N01
      4 1248 1321 (N15W06 L=106)   464    137        1 (1183/1278-1282/1379)   0.0 W01-W08 N12-N18
      5 1061 1181 (N02E02 L= 98)   678    188        1 (1022/1087-1132/1251) -36.9 E04-W04 S01-N06
      6  769 1157 (S05E17 L= 82)   660    167        1 ( 694/1084- 817/1210) -26.6 E23-E13 S08-S03
      7  409 1110 (S15E40 L= 60)   238     82        0 ( 375/1092- 447/1126)  31.0 E42-E37 S16-S13
      8  134 1004 (S25E65 L= 35)   950    233        1 (  89/ 966- 175/1044)  24.0 E69-E60 S26-S22
      9 1626  977 (N05W37 L=137)   355     86        1 (1582/ 956-1660/1005)  45.0 W34-W39 N03-N07
     10  666  975 (S18E20 L= 80)   366    134        1 ( 610/ 928- 731/1001)  45.0 E22-E16 S21-S15
     11 1675  838 (S01W45 L=145)  1034    291        3 (1592/ 745-1748/ 953)  66.8 W41-W47 S07-N07
     12  244  846 (S33E52 L= 48)   428     94        2 ( 218/ 810- 265/ 885)  51.3 E54-E49 S35-S30
     13  494  846 (S29E30 L= 70)   290     85        0 ( 461/ 814- 530/ 868)  38.7 E32-E27 S31-S27
     14 1190  851 (S13W14 L=114)   230     78        2 (1146/ 825-1237/ 868)  38.7 W11-W16 S15-S11
     15 1488  460 (S26W47 L=147)  2514    441        4 (1320/ 395-1680/ 565)  45.0 W37-W58 S34-S15
  

    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