Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  446 1638 (N35E59 L= 65)   720    108        0 ( 412/1605- 493/1682)  63.4 E62-E56 N32-N38
      2 1115 1593 (N40W01 L=126)   921    172        2 (1042/1552-1206/1632) -17.1 E05-W08 N36-N42
      3  630 1490 (N27E33 L= 92)  1260    188        4 ( 566/1418- 692/1555) -29.7 E40-E26 N22-N31
      4  909 1376 (N22E11 L=114)   319    110        1 ( 868/1335- 940/1424)  63.4 E13-E09 N19-N25
      5 1219 1364 (N24W10 L=135)   309     70        3 (1199/1328-1239/1406) -78.7 W08-W11 N22-N27
      6  187 1047 (S05E63 L= 62)  2201    217        6 ( 134/ 946- 238/1120) -39.8 E72-E56 S11-N00
      7 1408 1004 (N04W24 L=149)   230     63        0 (1373/ 974-1434/1027) -21.8 W21-W26 N01-N04
      8  863  772 (S15E08 L=117)  2237    514        2 ( 690/ 617-1012/ 952)  52.0 E19-W00 S26-S02
      9 1684  741 (S11W49 L=173)   478     95        0 (1651/ 703-1701/ 782)  80.5 W46-W50 S13-S07
     10 1488  743 (S12W33 L=158)   387     75        1 (1469/ 701-1511/ 779)  90.0 W31-W34 S14-S09
     11 1797  688 (S13W63 L=188)   814    107        1 (1757/ 656-1835/ 711)  -8.7 W57-W70 S15-S11
     12  608  587 (S30E26 L= 99)   673     95        3 ( 558/ 562- 649/ 621)   0.0 E29-E22 S32-S27
     13 1621  453 (S30W56 L=181)  2491    391        3 (1486/ 389-1756/ 565)  33.0 W43-W65 S35-S21
     14  366  485 (S41E55 L= 70)  1742    173        4 ( 313/ 424- 434/ 538)  18.4 E78-E42 S47-S35
     15  563  323 (S53E39 L= 85)   514     56        1 ( 538/ 308- 599/ 344)  11.3 E44-E34 S54-S50
  

    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