Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1582 1633 (N45W52 L= 46)   854    104        0 (1549/1586-1620/1661) -71.6 W48-W55 N40-N46
      2  748 1528 (N34E23 L=330)   237     63        0 ( 731/1497- 771/1552) -53.1 E24-E20 N31-N35
      3 1058 1461 (N31W01 L=354)   527    225        0 ( 967/1401-1143/1495) -20.0 E05-W06 N26-N32
      4 1725 1470 (N32W59 L= 52)   786     74        1 (1689/1438-1758/1494) -23.2 W54-W63 N30-N34
      5 1473 1439 (N30W32 L= 25)   397    189        0 (1401/1391-1546/1465)  -9.5 W25-W37 N27-N32
      6 1039 1387 (N26E00 L=353)   485    205        0 ( 957/1317-1106/1436) -37.9 E06-W04 N21-N28
      7 1432 1399 (N27W28 L= 21)   228     84        0 (1396/1372-1470/1418) -31.0 W25-W30 N25-N28
      8  222 1261 (N13E63 L=290)  1483     91        4 ( 191/1213- 250/1308)  90.0 E67-E59 N10-N16
      9 1331 1193 (N14W19 L= 12)   220     58        0 (1304/1170-1355/1222) -45.0 W17-W20 N12-N15
     10 1817  923 (S02W58 L= 52)  1113    127        2 (1784/ 868-1855/ 979) -40.6 W54-W63 S05-N01
     11  663  875 (S08E22 L=331)   557    180        2 ( 624/ 799- 698/ 943)  77.5 E25-E20 S12-S03
     12 1259  803 (S10W15 L=  9)   652    196        1 (1198/ 737-1325/ 883) -48.4 W11-W20 S14-S05
     13  963  713 (S17E03 L=350)   220     47        1 ( 947/ 689- 981/ 744)  76.0 E03-E01 S18-S14
     14  277  688 (S22E57 L=296)   491     91        1 ( 265/ 647- 292/ 736)  50.2 E60-E55 S24-S18
     15 1069  645 (S21W04 L=358)   978    197        2 ( 990/ 555-1128/ 729) -74.7 W00-W08 S26-S15
     16 1185  668 (S19W12 L=  5)   777    186        2 (1127/ 593-1220/ 717) -49.4 W07-W14 S24-S15
     17  562  532 (S31E33 L=320)  1336    194        4 ( 513/ 470- 633/ 617) -63.4 E35-E27 S35-S25
     18  270  575 (S30E65 L=289)  1871    104        4 ( 216/ 547- 316/ 605) -90.0 E86-W00 S33-S27
     19  948  546 (S28E04 L=350)   749    164        3 ( 865/ 511-1000/ 595)  33.7 E09-W00 S30-S24
     20 1619  486 (S31W51 L= 44)  1659    288        4 (1488/ 438-1718/ 542)  19.3 W39-W60 S34-S27
  

    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