Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  526 1744 (N23E62 L= 67)   811     89        2 ( 501/1709- 556/1778) -40.6 E67-E57 N20-N26
      2  840 1632 (N23E30 L= 99)   723    156        1 ( 812/1566- 874/1704) -52.1 E33-E26 N19-N28
      3 1461 1620 (N44W10 L=140)   817    128        1 (1399/1587-1524/1640)  14.0 W04-W16 N41-N46
      4 1291 1528 (N30W01 L=130)   377     57        2 (1265/1501-1322/1555)   0.0 E01-W03 N28-N32
      5 1348 1309 (N18W10 L=140)   728    348        1 (1245/1263-1482/1395)  17.4 W02-W18 N15-N23
      6 1830 1302 (N36W51 L=181)   752     82        2 (1800/1266-1854/1337) -31.0 W47-W55 N33-N38
      7 1780 1159 (N25W46 L=175)   374     73        0 (1743/1130-1816/1180)  40.6 W42-W49 N21-N27
      8 1701 1028 (N14W41 L=171)  1248    305        3 (1586/ 986-1811/1087)  14.0 W30-W50 N11-N19
      9  214 1028 (S26E59 L= 71)   616    153        1 ( 184/ 959- 239/1086) -45.0 E63-E54 S29-S22
     10  804  793 (S25E06 L=123)  1195    217       10 ( 705/ 732- 895/ 848)  50.7 E11-W00 S31-S19
     11 1682  621 (S08W55 L=185)   630    148        1 (1615/ 580-1738/ 651)  36.9 W51-W60 S11-S04
     12  751  608 (S38E04 L=125)   451     98        1 ( 717/ 582- 800/ 640)   0.0 E07-W00 S39-S35
     13  583  553 (S47E16 L=113)  1165    203        2 ( 536/ 499- 647/ 631) -26.6 E20-E09 S51-S41
     14 1492  523 (S19W46 L=176)   594     91        1 (1459/ 486-1538/ 571) -45.0 W42-W49 S21-S17
     15 1707  474 (S14W69 L=199)  2308    217        9 (1633/ 431-1779/ 521)  28.1 W59-W81 S17-S09
  

    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