Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  905 1800 (N50E32 L=306)   408     37        1 ( 886/1776- 927/1826) -53.1 E35-E28 N48-N52
      2  970 1713 (N44E20 L=318)   674    101        2 ( 952/1657- 996/1766) -52.1 E24-E17 N39-N48
      3  411 1501 (N19E54 L=284)   444     79        2 ( 383/1475- 440/1527)  63.4 E58-E50 N17-N21
      4 1531 1367 (N29W30 L=  8)   496    183        0 (1480/1297-1587/1427) -37.9 W25-W34 N25-N32
      5  836 1298 (N13E16 L=322)   443    171        0 ( 796/1220- 864/1366) -53.1 E20-E13 N08-N16
      6 1788 1228 (N25W54 L= 32)  1261    187        0 (1764/1160-1815/1321) -78.7 W51-W57 N20-N30
      7  990  774 (S16W02 L=340)   924    288        2 ( 920/ 694-1036/ 837) -63.4 E02-W04 S20-S11
      8 1747  754 (S05W56 L= 34)   536     89        1 (1719/ 719-1783/ 787)  51.3 W53-W58 S07-S02
      9 1204  710 (S16W16 L=355)   657    190        1 (1138/ 657-1272/ 774)  56.3 W13-W19 S20-S11
     10 1095  727 (S17W09 L=348)   316     81        2 (1068/ 682-1117/ 764) -68.2 W07-W10 S19-S14
     11  385  670 (S33E43 L=296)  1100    188        1 ( 305/ 628- 467/ 709)  20.2 E53-E34 S37-S29
     12 1026  627 (S25W07 L=345)   249    136        1 ( 969/ 608-1079/ 642)  15.9 W03-W10 S25-S23
     13 1401  495 (S27W37 L= 15)  3045    531        5 (1199/ 425-1611/ 592)  34.2 W23-W50 S34-S16
     14  807  421 (S44E05 L=333)  1410    263        4 ( 697/ 389- 937/ 466)  20.2 E14-W05 S48-S38
     15  646  403 (S49E20 L=318)   419     30        0 ( 623/ 383- 668/ 433)  59.0 E22-E17 S50-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