Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1525 1652 (N31W51 L=295)  2230    315        3 (1367/1615-1661/1688)  -9.5 W38-W68 N27-N34
      2 1021 1545 (N32W09 L=253)  1021    292        1 ( 892/1513-1153/1588) -22.4 W00-W17 N28-N36
      3 1614 1497 (N19W50 L=293)  1256    234        1 (1542/1431-1715/1580) -54.0 W45-W56 N14-N25
      4 1658 1548 (N22W57 L=300)   889    160        0 (1583/1517-1732/1574) -24.8 W50-W63 N18-N24
      5 1399 1529 (N25W34 L=278)   497    105        0 (1355/1480-1439/1566) -63.4 W32-W35 N21-N27
      6  351 1464 (N39E47 L=197)   919    106        2 ( 295/1431- 413/1487)   0.0 E53-E39 N36-N40
      7  505 1439 (N34E30 L=213)   506     82        0 ( 463/1413- 550/1465) -20.6 E34-E26 N32-N36
      8  974 1335 (N20W02 L=245)   205     75        0 ( 937/1319-1005/1357) -45.0 W00-W03 N18-N21
      9  347 1104 (N15E43 L=200)  1217    239        1 ( 287/1017- 413/1201) -58.4 E48-E38 N09-N22
     10 1642 1031 (S08W39 L=283)   490     84        1 (1602/ 998-1676/1063) -38.7 W36-W41 S10-S06
     11 1720  930 (S16W45 L=288)   720    108        1 (1684/ 864-1751/ 985) -81.9 W41-W47 S19-S12
     12  531  681 (S12E37 L=207)   316    113        0 ( 503/ 654- 579/ 711) -45.0 E38-E34 S14-S10
     13  253  641 (S10E64 L=180)   411     53        0 ( 240/ 612- 267/ 670)  53.1 E66-E61 S12-S08
     14  828  478 (S30E23 L=221)   308     69        1 ( 796/ 456- 859/ 500)  11.3 E25-E20 S30-S28
     15 1006  265 (S49E19 L=224)  1043    171        0 ( 925/ 238-1076/ 304)  -4.1 E25-E11 S52-S45
  

    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