Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1381 1588 (N31W30 L=193)  1399    296        6 (1242/1542-1493/1626)  -9.5 W20-W38 N27-N34
      2  410 1551 (N36E44 L=119)   371    105        1 ( 373/1529- 441/1564)   0.0 E47-E40 N34-N37
      3  342 1539 (N36E50 L=113)   394     78        2 ( 323/1519- 361/1561) -38.7 E53-E48 N34-N38
      4 1734 1264 (N09W50 L=213)   511    109        0 (1695/1227-1763/1304)  29.7 W46-W53 N06-N11
      5  587 1097 (N05E26 L=137)   200     60        1 ( 571/1074- 616/1128) -45.0 E27-E24 N03-N07
      6 1870  913 (S13W61 L=224)  3585    625       13 (1816/ 753-1926/1111) -79.7 W55-W69 S22-N00
      7 1107  943 (S07W04 L=168)   341    119        0 (1051/ 893-1152/ 983) -50.2 W01-W06 S10-S04
      8  194  930 (S01E60 L=103)   373     70        0 ( 173/ 901- 215/ 959) -36.9 E62-E58 S03-N00
      9 1806  834 (S17W54 L=218)   533    102        2 (1790/ 788-1828/ 882) -80.5 W52-W56 S20-S14
     10  354  710 (S16E48 L=115)   312     48        0 ( 333/ 687- 378/ 731)  21.8 E50-E45 S17-S14
     11 1455  661 (S27W27 L=190)   572    102        1 (1416/ 622-1482/ 698) -78.7 W23-W28 S29-S24
     12 1032  609 (S27E02 L=161)   224     46        0 (1007/ 584-1059/ 633)  26.6 E04-W00 S28-S25
     13  280  563 (S24E60 L=103)  1858    308        5 ( 227/ 507- 334/ 609)  26.6 E67-E54 S27-S21
  

    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