Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  401 1592 (N58E47 L=323)  1364    215        0 ( 301/1567- 493/1633)   1.6 E70-E33 N56-N60
      2 1591 1422 (N15W47 L= 57)   583    158        0 (1562/1362-1626/1488)  54.5 W44-W52 N10-N17
      3 1173 1301 (N19W16 L= 26)  1791    559        0 ( 914/1256-1394/1347) -21.4 W00-W28 N13-N25
      4  638 1321 (N33E18 L=352)   473    152        0 ( 570/1297- 709/1338) -26.6 E23-E13 N30-N35
      5  177 1213 (N34E66 L=304)  1701    130        2 ( 114/1171- 235/1240)  -9.1 E83-E56 N31-N36
      6  886  996 (N09E08 L=  2)   862    246        3 ( 818/ 893- 937/1092)  85.6 E11-E05 N02-N15
      7 1815  962 (S17W52 L= 62)   951    149        1 (1765/ 930-1882/1000) -15.9 W46-W60 S19-S13
      8 1311  792 (S13W11 L= 22)   356     95        0 (1263/ 758-1343/ 816) -51.3 W08-W12 S15-S10
      9  775  556 (S15E26 L=344)   901    143        2 ( 741/ 475- 815/ 615)  48.8 E29-E22 S19-S11
     10  251  582 (S05E69 L=301)   673     51        1 ( 236/ 552- 274/ 614)  45.0 E72-E65 S06-S02
     11 1704  530 (S43W40 L= 51)   439     53        1 (1682/ 512-1737/ 551)   0.0 W37-W44 S44-S40
     12 1493  404 (S45W18 L= 28)  1094    261        1 (1382/ 350-1600/ 456)  -2.7 W07-W28 S46-S43
     13  619  272 (S31E54 L=316)  1310    118        3 ( 579/ 220- 659/ 322)  25.2 E64-E47 S35-S27
  

    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