Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  777 1620 (N38E26 L=308)  5830    806       10 ( 468/1517-1123/1772)  -7.6 E80-W02 N32-N46
      2 1233 1428 (N29W11 L=345)   459    135        0 (1195/1378-1273/1480) -50.2 W08-W13 N25-N31
      3  220 1271 (N10E63 L=271)  3702    368        6 ( 172/1135- 303/1462) -84.6 E70-E56 N01-N22
      4  930 1370 (N22E09 L=325)   564    149        0 ( 903/1304- 973/1441) -53.1 E11-E05 N18-N26
      5 1648 1371 (N28W44 L= 18)   409    100        1 (1608/1336-1700/1398) -14.0 W40-W48 N25-N29
      6 1823 1237 (N20W60 L= 34)   764     89        4 (1792/1188-1844/1278)  78.7 W56-W63 N17-N22
      7 1791 1164 (N15W55 L= 29)   779    128        1 (1740/1142-1846/1197)  -4.8 W49-W61 N14-N17
      8 1796  956 (N03W55 L= 29)   696    112        0 (1757/ 908-1848/ 983)  26.6 W51-W61 N00-N04
      9 1407  934 (S01W24 L=358)   218     40        0 (1386/ 913-1428/ 957) -26.6 W22-W26 S02-N00
     10  374  814 (S17E43 L=291)   537    127        0 ( 333/ 774- 433/ 853) -26.6 E46-E38 S18-S14
     11 1858  828 (S05W65 L= 39)   528     52        0 (1825/ 814-1893/ 840)   5.2 W60-W71 S05-S04
     12 1105  674 (S19W08 L=342)   920    214        0 (1013/ 636-1211/ 707)  26.6 W02-W14 S22-S16
     13  807  538 (S31E11 L=323)  1078    216        4 ( 708/ 489- 901/ 574)  29.7 E18-E04 S35-S27
     14  655  449 (S39E24 L=310)   268     37        0 ( 636/ 429- 676/ 477)  56.3 E25-E22 S40-S37
     15  552  394 (S45E36 L=298)   440     64        2 ( 517/ 375- 586/ 413)  -8.1 E39-E32 S46-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