Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1385 1585 (N37W08 L=107)   283     75        0 (1368/1555-1401/1622) -53.1 W06-W09 N34-N39
      2 1752 1478 (N43W44 L=143)  1262    167        3 (1671/1439-1826/1512)  14.0 W34-W59 N40-N47
      3  333 1216 (S11E49 L= 49)  1159    346        4 ( 219/1126- 454/1303)  41.2 E59-E41 S17-S03
      4  638 1265 (S02E28 L= 70)   304     62        1 ( 612/1240- 664/1290)  63.4 E29-E26 S04-N00
      5 1884 1027 (N18W60 L=159)  1220    244        0 (1849/ 930-1931/1131) -28.1 W54-W70 N12-N23
      6 1820 1022 (N15W53 L=151)  1257    198        5 (1795/ 920-1845/1114) -59.0 W48-W56 N09-N19
      7  300  958 (S26E49 L= 50)   276    117        0 ( 271/ 912- 332/1008)  49.4 E51-E45 S29-S22
      8  554  941 (S23E27 L= 72)   466    185        0 ( 478/ 916- 632/ 968)  15.3 E32-E21 S24-S21
      9  350  738 (S39E43 L= 55)   594    120        1 ( 308/ 690- 381/ 794)  49.4 E48-E39 S42-S35
     10  694  754 (S31E14 L= 85)   232     97        0 ( 648/ 739- 744/ 767)  26.6 E16-E10 S32-S29
     11 1631  547 (S16W55 L=153)   980    252        1 (1532/ 473-1713/ 635)  70.3 W51-W58 S23-S09
     12 1181  517 (S32W25 L=124)  1284    243        4 (1082/ 461-1263/ 573)  55.0 W20-W29 S37-S26
     13  768  396 (S53W01 L=100)   397    111        0 ( 745/ 367- 811/ 441) -33.7 E01-W06 S54-S49
     14 1376  324 (S37W52 L=150)   339     78        0 (1340/ 308-1412/ 336)  26.6 W48-W56 S38-S35
  

    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