Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  930 1755 (N55E11 L=179)   321     87        1 ( 885/1731- 957/1773)  15.9 E15-E07 N52-N56
      2 1230 1736 (N53W21 L=211)   436     35        0 (1211/1708-1254/1757)  26.6 W18-W24 N50-N55
      3  531 1557 (N37E42 L=148)   526     77        2 ( 496/1530- 574/1579)   8.1 E45-E37 N35-N38
      4 1648 1525 (N35W54 L=244)   764    115        1 (1596/1504-1711/1548)  -4.1 W48-W62 N33-N36
      5  684 1499 (N34E26 L=163)   604    138        0 ( 625/1470- 754/1520)  18.4 E31-E21 N31-N35
      6  853 1466 (N32E13 L=177)   542    153        0 ( 791/1415- 910/1501) -29.1 E17-E08 N28-N34
      7  336 1269 (N17E51 L=139)   305     46        2 ( 315/1250- 359/1289)  26.6 E52-E48 N15-N18
      8  284  620 (S25E61 L=129)  1323    239        1 ( 252/ 511- 327/ 718)  30.7 E78-E51 S33-S17
      9  959  670 (S19E04 L=186)   317    136        1 ( 896/ 658-1025/ 685)   0.0 E08-W00 S19-S17
     10  501  520 (S31E40 L=150)  2883    434        5 ( 380/ 362- 618/ 674)  27.5 E77-E27 S45-S19
     11 1701  644 (S22W52 L=242)   423     72        2 (1663/ 625-1735/ 666)   0.0 W48-W56 S22-S19
     12  984  603 (S23E02 L=187)   543    190        0 ( 927/ 539-1067/ 648)  37.9 E06-W03 S27-S20
     13 1356  508 (S30W25 L=215)   370    116        0 (1302/ 483-1407/ 539)  20.6 W20-W28 S32-S27
     14 1545  360 (S43W51 L=241)  1006     74        1 (1512/ 332-1588/ 395)  23.2 W45-W57 S45-S39
     15 1343  313 (S47W31 L=220)  1311    238        3 (1263/ 289-1431/ 347)  -3.2 W22-W40 S48-S43
  

    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