Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1005 1862 (N58W43 L=336)  2554    335        6 ( 884/1744-1111/1956)   6.4 W19-W81 N53-N60
      2  573 1617 (N56E17 L=276)   482     74        0 ( 539/1588- 615/1644)  12.5 E20-E11 N53-N57
      3 1491 1456 (N16W42 L=335)   581    149        0 (1467/1392-1515/1527)  41.2 W38-W46 N12-N19
      4  484 1364 (N40E28 L=265)   346     63        0 ( 455/1340- 523/1381)   0.0 E30-E24 N38-N40
      5 1677  903 (S20W37 L=330)   498    170        0 (1644/ 829-1722/ 974)  33.7 W33-W42 S23-S16
      6 1843  879 (S27W53 L=346)   455    109        0 (1817/ 827-1863/ 930)  39.8 W49-W56 S29-S24
      7 1688  805 (S26W36 L=329)   297     76        0 (1660/ 773-1714/ 839)  21.8 W33-W39 S27-S24
      8 1423  667 (S26W14 L=307)   305     46        1 (1391/ 641-1450/ 692) -53.1 W12-W15 S27-S23
      9 1112  631 (S19E06 L=287)   223     19        0 (1096/ 607-1130/ 652)  71.6 E07-E04 S20-S17
     10 1235  590 (S25W00 L=293)   632    269        0 (1145/ 496-1341/ 644)  11.3 E07-W08 S28-S22
     11  932  510 (S21E20 L=273)   295     92        1 ( 902/ 477- 974/ 535)   0.0 E22-E16 S23-S20
     12 1524  434 (S47W18 L=311)   668    123        0 (1487/ 379-1553/ 492)  45.0 W13-W20 S50-S42
     13 1112  403 (S34E14 L=279)   508    132        0 (1053/ 387-1181/ 429)  -6.3 E17-E08 S35-S31
     14  758  354 (S27E38 L=255)   491     86        0 ( 741/ 309- 778/ 400)  40.6 E41-E34 S29-S23
  

    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