Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1070 1856 (N55W47 L=272)   850     74        0 (1036/1819-1107/1886)   4.1 W39-W55 N53-N57
      2 1705 1573 (N15W69 L=293)  2314    195        5 (1624/1500-1763/1626) -63.4 W63-W78 N09-N19
      3  888 1459 (N35W05 L=229)  1407    439        3 ( 713/1414-1116/1489) -30.3 E07-W17 N25-N39
      4 1625 1405 (N09W49 L=273)   507    117        1 (1586/1362-1654/1457)  26.6 W45-W53 N07-N11
      5 1208 1233 (N13W16 L=240)  1158    490        0 ( 979/1143-1351/1294) -39.8 W03-W22 N03-N19
      6  739 1170 (N22E13 L=211)   697    213        1 ( 641/1137- 835/1199)  -8.7 E19-E06 N19-N23
      7  259 1135 (N31E52 L=172)   542     86        0 ( 239/1090- 278/1177)  78.7 E54-E50 N28-N33
      8  737 1045 (N15E16 L=208)   585    236        0 ( 654/ 992- 829/1075)  -9.5 E22-E10 N11-N16
      9  236  892 (N17E58 L=166)   941    213        1 ( 158/ 838- 323/ 936) -25.2 E68-E50 N12-N20
     10 1556  808 (S21W26 L=250)   340    105        0 (1524/ 763-1594/ 845)  23.2 W22-W29 S22-S19
     11 1741  585 (S44W42 L=266)  2704    321        3 (1635/ 499-1834/ 719)  21.4 W29-W53 S47-S37
     12  748  435 (S21E35 L=189)   624    149        2 ( 727/ 356- 772/ 500)  51.3 E38-E30 S26-S16
     13 1462  390 (S48W11 L=235)   699    146        0 (1404/ 350-1525/ 420)   0.0 W05-W17 S49-S45
     14 1001  235 (S43E31 L=193)   414     68        0 ( 966/ 214-1030/ 256)   8.1 E35-E28 S44-S41
     15 1162  212 (S51E22 L=202)  1290    193        3 (1079/ 175-1256/ 240) -10.0 E31-E13 S54-S48
  

    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